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Come 
si presenta 
il vostro computer? 


Avete deciso di avvicinarvi al linguaggio BASIC, e per questo tirocinio avete scelto 
un Commodore 64. 

Lo schermo 

Si tratta di uno schermo ben familiare, quello del vostro televisore, collegato al 
Commodore 64 attraverso la presa per apparecchiature esterne. 

Una volta collegato, sullo schermo appare il seguente messaggio: 

**** COMMODORE 64 BASIC 62 **** 

64K RAM SYSTEM 38911 BASIC BYTES FREE 

Il computer dispone di 64 K di memoria, di cui 38911 bytes utilizzabili per il BA¬ 
SIC (64 K = 64.000 bytes). 

È attraverso lo schermo che il computer risponde alle vostre domande. 

Ma come porre le domande al computer? 

Non essendo il computer ancora in grado di accettare degli ordini vocali, dovete 
utilizzare un altro intermediario: la tastiera. 

La tastiera 



Come potete constatare, essa somiglia molto a quella di una macchina per scrive¬ 
re: lettere, cifre, segni di interpunzione, simboli matematici, barra spaziatrice, c’è 
tutto. 
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a 

Premendo il tasto "A” da solo, appare il carattere "A”. 

SHIFT 

Premendo SHIFT, si accede ai caratteri di destra dei tasti. 

Esempio: se premete simultaneamente "SHIFT” e "A”, appare il carattere "T”. 




Premendo " ” si accede ai caratteri di sinistra dei tasti. 

Esempio: nell’esempio qui a fianco, appare il carattere "[ 
Questo codice di caratteri si chiama "MAIUSCOLO/GRAFICO”. 


SHIFT 


+ 



Premendo simultaneamente SHIFT e si accede al secondo codice di caratteri, 
chiamato "MINUSCOLO/MAIUSCOLO”. 

Osservate allora sullo schermo che: 

la A è trasformata in a 
la T è trasformata in A 
il carattere grafico | non cambia. 

Il ritorno in modo "MAIUSCOLO/GRAFICO” si effettua ugualmente premendo 
SHIFT e simultaneamente. 




SHIFT 

LOCK 


Il tasto SHIFT blocca la tastiera. 

LOCK 

• in "modo grafico” se ci si trova in "MAIUSCOLO/GRAFICO” 

• in "maiuscolo” se ci si trova in "MINUSCOLO/MAIUSCOLO”. 

Per tornare in modo normale, occorre premere di nuovo SHIFT 

LOCK 

Nota: i tasti carattere non sono a ripetizione. 

Premendo la barra "SPAZIO” cancellate il carattere che si trova sotto il cursore. 
Contrariamente ai tasti carattere, la barra "SPAZIO” è a ripetizione. 
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Tasti funzionali dello schermo 

Questi tasti servono a posizionarsi sullo schermo: 


TASTI 

FUNZIONI (SENZA SHIFT) 

FUNZIONI (CON SHIFT O 

C £ > 

T 

CRSR 

1 

Sposta il cursore di una 
linea verso il basso 

Sposta il cursore di una 
linea verso l’alto 


CRSR 

— > 

Sposta il cursore di un 
carattere verso destra 

Sposta il cursore di un 
carattere verso sinistra 


CLR 

HOME 

Posiziona il cursore 
alto a destra dello schermo 

Cancella lo schermo e posiziona 
il cursore in alto a sinistra 

INST 

DEL 

Cancella il carattere che 
si trova a sinistra del cursore 
ed avvicina tutta la parte 
destra della linea di un carattere 

Crea uno spazio sotto 
il cursore spostando 
la parte destra della 
linea di un carattere 



Non premete un tasto "cursore” in uno spazio creato per inserimento, poiché fare¬ 
ste apparire un carattere in "reverse”. Per spostarvi aH'interno dei “blanks” utiliz¬ 
zate la barra spaziatrice. 

Vi raccomandiamo di imparare l'utilizzo di questi tasti prima di proseguire. (Stu¬ 
dieremo gli altri tasti in seguito). 

Non preoccupatevi dei diversi messaggi di errore che possono comparire sullo 
schermo, in nessun caso rischiate di deteriorare il vostro computer. 






Il modo immediato 
(chiamato anche 
modo diretto) 


Per dialogare con il computer, sfortunatamente non basta conoscere bene la sua 
tastiera: bisogna anche parlare la sua lingua, il BASIC. Non cominciate a preoccu¬ 
parvi, vedrete com’è semplice! 

Un breve periodo di apprendimento vi basterà per diventare perfettamente 
bilingue. 

Detto questo, per iniziare la conversazione vi basterà battere un’istruzione, che 
non dimenticherete di convalidare per mezzo di < RETURN >. Il computer allora 
vi risponderà IMMEDIATAMENTE. 

Cominciamo: 

Versione inglese Versione italiana 

— Voi: PRINT 10 + 5 — Voi: SCRIVI 10 + 5 

— Lui: 15 — Lui: 15 


/ PRONTO \ 

SCRIVI 10 + 5 ^7 

L I 5 

PRONTO _ J 



Guardiamo più da vicino lo schermo in versione BASIC 


(per principianti) Beginner's 

(tutti gli usi) All-purpose 

Symbolic 
Instruction 
Code 
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Come per tutte le lingue, esiste in BASIC una sintassi che dovete rispettare. In ca¬ 
so contrario, il computer non comprenderà il messaggio che gli trasmettete. Ve lo 
segnala facendo apparire il messaggio SYNTAX ERROR (errore di sintassi) ed at¬ 
tende che voi battiate di nuovo, senza errori, la vostra istruzione. 



Immaginiamo che vi siate accorti di questo imperdonabile (parliamo dal punto di 
vista della macchina) errore di battitura prima di avere premuto il tasto 
< RETURN >. 

Cosa avreste potuto fare per rimediare a questa dimenticanza? 

Come avrete notato, il computer si contenta di darvi una risposta senza fare lunghi 
discorsi. 

Sta a voi curarvi di migliorare la presentazione della risposta. 

Per fare questo, vi basta scrivere un MESSAGGIO posto TRA VIRGOLETTE. 


Messaggio esplicativo: | 

è riprodotto 

così com'è dal Basic 



Risultato 

dell'addizione 


ATTENZIONE ALLE VIRGOLETTE! 

Sono le virgolette ad avvertire il computer che si tratta di un messaggio. Questo 
messaggio è del tutto arbitrario. 

Avreste potuto tranquillamente battere: 


PRINT “10 — 5 = ";10 + 5 
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Il computer memorizza il messaggio posto tra virgolette e lo fa apparire 
testualmente. 



Questo vi permette di constatare la sua fedeltà, certo, ma anche la sua mancanza 
"d’intelligenza”. 


In breve 


• II modo IMMEDIATO (o DIRETTO) vi permette di conoscere "immediata¬ 
mente” l’effetto di un’istruzione. 

• L’istruzione PRINT (SCRIVI) è usata per visualizzare sullo schermo i dati 
a cui si riferisce. 

• Il messaggio SYNTAX ERROR indica che il computer non ha compreso 
ciò che gli avete domandato. Impotente, vi domanda di ribattere l’istruzione 
senza sbagliarvi nella formulazione. 

• Le VIRGOLETTE "... ” indicano alla macchina che deve SOLAMENTE ri¬ 
produrre il messaggio che queste racchiudono. 

• Il PUNTO E VIRGOLA (;) in una istruzione PRINT indica alla macchina 
che deve scrivere il dato successivo, al seguito del precedente. 






Memorizzazione 
dei valori: 
variabili 


L’istruzione PRINT, per quanto importante sia, non ci mostra granché delle possi¬ 
bilità della macchina. 

L’istruzione LET variabile = valore 

Questa istruzione permette di conservare in memoria dei valori che verranno uti¬ 
lizzati in seguito (per esempio, per compiere dei calcoli). 

Per comprendere il significato di "variabile”, paragoniamola ad una casella (d'ora 
in poi la simbolizzeremo così) all’interno della quale collochiamo un valore. Dia¬ 
mole poi un nome per IDENTIFICARLA. 

Così, per assegnare il valore 25 ad una variabile che chiamiamo PREZZO, 
scriviamo: 


LET PREZZO = 25 

Il BASIC colloca allora il valore 25 nella casella PREZZO. 



Il computer richiama il valore di PREZZO. Per visualizzare questo valore, è suffi¬ 
ciente battere PRINT PREZZO. 
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II computer 
richiama il valore 
di PREZZO 



Il computer assegna 

il valore 25 

alla variabile PREZZO 


Il nome dato alla variabile (qui PREZZO) è arbitrario; per verificarlo, provate a 
fare: 



Tuttavia è importante che il nome della variabile sia il più mnemonico possibile. 

Calcoliamo ora il totale del prodotto di 25 lire per una quantità di 3. 

Per fare questo, utilizziamo 2 variabili (2 caselle). 


PREZZO/ 


QUANTITÀ 

—'^3 

25 




variabile variabile 

PREZZO QUANTITÀ 



Non confondete 

il simbolo di moltiplicazione * 

con la lettera X 
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I nomi delle variabili "PREZZO” e "QUANTITÀ” possono essere rimpiazzati da "PZ 
e "01”. 



Otteniamo lo stesso risultato scrivendo: 

LET PZ = 25 
LET QT = 3 
LET T = PZ * QT 
PRINT T 
75 

Vediamo ora come cambiare il valore della variabile QT. Per darle il valore 5, è 
sufficiente fare: 

LET QT = 5- , 

(la variabile PZ conserva il suo vecchio valore). 



Assegnamo 
un nuovo valore 
a QT 


Naturalmente, il computer "dimentica” il vecchio valore di QT. 

Immaginiamo ora che il prezzo aumenti di 5 lire. 

Potremmo certamente fare: LET PZ = 30. 
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Ma possiamo anche fare: 



LET PZ = PZ + 5 non deve essere interpretata come una identità algebrica. 
Il computer interpreta questa addizione nel modo seguente: 

1. Prende il contenuto della casella PZ. 

2. Aggiunge 5. 25 + 5 

3. Colloca il totale nella casella PZ. 


Esempi 

Calcoliamo una data di nascita in funzione dell’età: 

LET ETÀ = 20 ^, 

LET NASCITA = 1983—ETA^ , 

PRINT “Data di nascita:”;NASCITA_, 

--- J? 

Data di nascita: 1963 

Calcoliamo ora il totale di alcune spese (P1,P2,P3) e l’importo rimanente: 












Memorizzazione dei valori: variabili 11 


LET ENTR = 100 —^ 

LET PI = 15-, 

-7 

LET P2 = 8 _, 

- -J 

LET P3 = 35 —7 

-- 

LET SP=P1 + P2 + P3 —7 
PRINT “Totale spese:";SP _^ 
Totale spese: 58 
LET RESTO = ENTR—SP —7 

----7 

PRINT “Vi resta:”;RESTO —7 

-7 

Vi resta: 42 



Per verificare i valori di PI, P2, P3, battiamo: 


PRINT PI,P2,P3 


7 


15 8 25 


Se abbiamo commesso un errore nel prezzo di P2, ci basta fare: 


LET P2 = 18 -^ 

LET SP - PI + P2 + P3^ 

PRINT “Totale spese:”;SP^, 

Totale spese: 68 

Per assegnare un valore ad una variabile, abbiamo utilizzato l'istruzione LET. Og¬ 
gi, per la maggior parte dei BASIC, non è più obbligatoria. 
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Per visualizzare sulla stessa linea PREZZO, QUANTITÀ e PREZZO * QUANTITÀ, 
separiamo le variabili per mezzo di virgole. 


PRINT PZ,QT,PZ * QT 


25 

t 

col. 1 


♦ 

Col. 11 


75 

I 

Col. 21 


I risultati sono visualizzati nelle colonne 1, 11 e 21 (di 10 in 10). 

II punto e virgola impedisce il salto di linea ma non incolonna i risultati, che ven¬ 
gono visualizzati l’uno di seguito all’altro, separati da uno spazio. 

PRINT PZ;QT;PZ*QT 
25 3 75 


Esistono tre tipi di variabili: 

• VARIABILE NUMERICA 

Il suo contenuto può essere solo numerico, positivo o negativo, con o senza 
decimali. 

• VARIABILE NUMERICA INTERA 

Il nome di questa variabile è completato dal simbolo % (per esempio RE%). Il suo 
contenuto può essere solo un numero intero compreso fra +32.765 e —32.765. 

• VARIABILE STRINGA DI CARATTERI 

Il nome di questa variabile è completato dal simbolo $ (per esempio NM$). Il suo 
contenuto può essere numerico, alfabetico o grafico. 

Il valore da assegnare a questa variabile deve essere scritto obbligatoriamente tra 
virgolette (per esempio: NM$ = "GIUSEPPE”). 

Parleremo più dettagliatamente di questa variabile nel capitolo "stringhe di 
caratteri”. 

Note sui nomi delle variabili 

Il primo carattere deve obbligatoriamente essere una lettera. Gli altri caratteri 
possono essere indifferentemente lettere o cifre. 

A2% e A2$ sono accettate 
2A% e 2A$ sono rifiutate 

Per il BASIC, PREZZO e PR sono la stessa variabile. 
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ATTENZIONE! Il Commodore 64 non accetta nomi di variabili contenenti un co¬ 
mando BASIC. 

Le variabili TO, TI, TI$ e ST sono rifiutate: 

TO è un comando BASIC 

TI i 

j danno il tempo trascorso dall’accensione o dall’inizializzazione 
TI in 100° di secondo 

TI$ in ore, minuti, secondi secondo la forma "HH MM SS” 

ST è una variabile di sistema. 


In breve 


• Una VARIABILE è una " casella” identificabile da un nome mnemonico, 
nella quale si colloca un valore qualsiasi. 

• Si può aggiungere un valore ad una variabile X facendo: 

LET X = X + valore (o X = X + valore) 

• La VIRGOLA permette di visualizzare i risultati nelle colonne 1 , 11 , 21 ,... 

• Il PUNTO E VIRGOLA non incolonna i risultati, ma li visualizza l’uno di 
seguito all’altro. 



Memorizzazione 
delle istruzioni: 
il programma 


Invece di battere più volte la stessa sequenza di istruzioni, la possiamo 
memorizzare. 

Per memorizzare una sequenza di istruzioni, le battiamo assegnando loro un 
NUMERO DI LINEA (10, 20, 30, ...). 

Questa sequenza di istruzioni si chiama PROGRAMMA. 



L'insieme 

delle linee 10,20,30 
costituisce 
un programma 


Possiamo constatare che non c’è risultato. Per ottenere un risultato, bisogna ri¬ 
chiedere l’ESECUZIONE DEL PROGRAMMA con l’ordine RUN. 


RUN-> 

150 

READY. 


Per ottenere 
il risultato, occorre 
battere < RUN > 


RUN ^ 
150 


Y‘ esecuzione 


Il BASIC esegue le istruzioni ad una ad una, seguendo la numerazione. 
L’esecuzione del programma può essere richiesta più volte. 

Il BASIC le esegue automaticamente. 
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Nota: le righe possono venire inserite anche senza seguire l’ordine della 
numerazione. 

Modifica ad una riga 

La cosa più semplice è ribatterla: 


30 F'RINT PZ,QT.PZ*QT pz, 

LIST-y 

10 F'.Z=25 
20 QT=6 

30 F'RINT PZ,GT,F'Z*QT 


RUN 

25 * 6 150 


Aggiunta di una riga 

L’abitudine vuole che la numerazione si faccia di 10 in 10. 
Per inserire una nuova riga (in 25, per esempio), basta fare: 


È stata riscritta 
la linea 30 

(l'originaria è sparita) 


Per ottenere i caratteri 
minuscoli, premere SHIFT/^i 


25 pr- i ni "prezzo *";pz;" guani ita 7 ;"; qt y 

1 i st y 

10 pz=25 
20 qf-é 

30 pr!nt "prezzo*";pz;"quantIta’:";qt 

run -y 

prezzo? 25 quantità’: 6 
25 6 150 


Inserimento 
della linea 25 



Lista di un programma 

Il comando LIST pemette di visualizzare il programma presente in memoria (o una 
parte di esso) ogni volta che lo desideriamo. 

LIST 10 -»■ visualizza la linea 10 

LIST — 30 -> visualizza dalla linea 10 alla 30 

LIST 20 — -* visualizza dalla linea 20 alla fine 

LIST 20-40 -> visualizza dalla linea 20 alla 40 
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Eliminazione di una riga 

Battendo il numero di riga seguito da < RETURN >, la riga è cancellata. 



Alla fine dell’esecuzione del programma (dopo RUN), le variabili PZ e QT hanno 
conservato il loro valore. Lo si può constatare battendo direttamente (cioè senza 
numero di riga): PRINT PZ, QT. 

RUN 


In modo 
immediato 


6 


PRINT PZ 


150 
QT —p. 


6 


Per conoscere l’effetto di una istruzione, può essere più rapido batterla diretta- 
mente invece che consultare un manuale. 

Così, per la messa a punto, il modo diretto è utilissimo. 

È quindi essenziale acquisire l’abitudine a farne uso. 


Eliminazione di un programma 


Utilizzare il comando "NEW”. 


In breve 


• Un PROGRAMMA è una sequenza di istruzioni numerate. 

• La numerazione si fa generalmente di 10 in 10 per consentire l’inserimento 
di nuove righe. 

• Il comando RUN lancia l’esecuzione di un programma. 

• Il comando LIST visualizza sullo schermo il programma presente in 
memoria. 

• In modo " MINUSCOLO/MAIUSCOLO ”, battete i comandi BASIC in 
minuscolo. 







Per immettere valori 
durante l’esecuzione: 
INPUT "Messaggio?”; variabile 


L’istruzione INPUT (IMMETTERE) permetterà di fornire dei valori al programma 
DURANTE l’ESECUZIONE attraverso la TASTIERA. 


Quando il BASIC incontra un’istruzione INPUT durante l'esecuzione di un pro¬ 
gramma, visualizza sullo schermo il messaggio che figura nell’istruzione INPUT 
(nell’esempio Prezzo?) ed aspetta che l’operatore immetta da tastiera il valore della 
variabile specificata nell'istruzione INPUT (nell’es., PZ). 

Quando l’operatore ha immesso il valore seguito da < RETURN >, l’esecuzione del 
programma prosegue alla riga successiva. 


Per cancellare 
il vecchio programma 


Messaggio 
della linea 10 




2* esecuzione 



NEW 
READY. 

10 INPUT "PREZZO ":PZ 7 
20 INPUT "QUANTITÀ' "fQT - 
30 PRINT “TOTALE :":PZ*QT £ 


Immissione 
del programma 


RUN~a 

PREZZO ? 10-a 
QUANTITÀ' ? *4-a 
TOTALE : 40 


Il Basic attende 
che immettiate 
il valore di PZ 
(linea 10) 


RUN~ a 

PREZZO ? 22-a. 
QUANTITÀ' ? 3-a 
TOTALE : 66 


Note 

• Al momento dell’esecuzione, il Commodore 64 aggiunge automaticamente un 
punto interrogativo dopo il messaggio. 

• Il comand NEW permette di cancellare il vecchio programma in memoria (allo 
stesso modo le nuove righe cancellerebbero le vecchie). 

L’istruzione INPUT è molto utile poiché permette di eseguire il programma con va¬ 
lori differenti senza dover modificare il programma stesso. 





18 II Commodore 64 per tutti 


Esempio 

Calcoliamo il consumo di un veicolo. 


10 INPUT "QUANTI LITRI ";L 
20 INPUT "QUANTI KM ";KM 
30 : 

40 C=(L/KM)*100 
50 : 

60 PRINT "CONSUMO PER 100 KM :";C 
70 : 

80 GOTO 10 


RUN 

QUANTI LITRI ? 40— 

QUANTI KM ? 520 A 

CONSUMO PER ÌOO^KM : 7.69230769 

Durante l'esecuzione di un’istruzione INPUT, possono apparire sullo schermo due 
messaggi di errore: 

• REDO FROM START: il computer vi chiede di ricominciare, poiché nella vostra 
risposta uno o più caratteri non erano numerici. 

• EXTRAIGNORED: avete battuto una virgola invece di un punto in numero deci¬ 
male; il computer quindi ha accettato solamente le cifre prima della virgola. 
Ricominciate! 



In un’istruzione INPUT possono essere specificate due variabili. In questo caso, i 
due valori che immettete durante l’esecuzione devono essere separati da una 
virgola. 








Per immettere valori durante l’esecuzione: INPUT "Messaggio?"; variabile 19 


Se immettete un solo valore, il computer vi mostra due punti interrogativi ed at¬ 
tende che immettiate il secondo valore. 



Note 

• Una modifica nel programma annulla il valore delle variabili. 

• RUN inizializza il valore delle variabili a 0. 



In breve 


• L’istruzione INPUT permette di introdurre i valori delle variabili soltanto 

al MOMENTO dell ESECUZIONE del PROGRAMMA. 












Loop: 

GOTO numero di riga 


L’istruzione "GOTO n. riga” permette di eseguire più volte la stessa sequenza di 
istruzioni. 

Mostriamo in un esempio (senza utilità pratica) il meccanismo di GOTO: 


NEW 


ilO F'RINT "CICLO CONTINUO" 
T 20 GOTO 10 


L'istruzione 10 
è eseguita 
ad infinito 


CICLO CONTINUO 
CICLO CONTINUO 
CICLO CONTINUO 


Il BASIC esegue l’istruzione 10 una prima volta, poi passa ad eseguire l’istruzione 
20. Questa istruzione "20 GOTO 10” significa "ANDARE ALLA RIGA 10”. L’istruzio¬ 
ne 10 è quindi eseguita nuovamente. 

Naturalmente, questo programma non arresta mai... a meno che voi premiate il ta¬ 
sto RUN/STOP. 


CICLO CONTINUO 
CICLO CONTINUO 



BREAK IN 10 

N 

Premete 

L'esecuzione 
è bloccata 

s* READY. 


RUN/STOP 


Utilizziamo questa istruzione GOTO in un contesto più vicino ai problemi reali. 
Supponiamo di dover compiere più volte la somma di due numeri. 
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ilo INPUT "PRIMO NUMERO "5 NI 
F 20 INPUT "SECONDO NUMERO " ; N2 
30 PRINT "SOMMA :";N1+N2 
Uo PRINT "PRODOTTO :";N 1 *N 2 
'50 BOTO 10 


RUN -y 

PRIMO NUMERO ? Zrj 
SECONDO NUMERO ? Zj 
SOMMA : 8 
PRODOTTO : 15 


Si ritorna 
alla linea 10 


PRIMO NUMERO 
^SECONDO NUMERO 
SOMMA : 11 
PRODOTTO : 24 


? 8 
? 3 


PRIMO NUMERO 


y Premete 
r RUN/STOP 
e RESTORE 


• Per fermare un programma in attesa su "INPUT”, premete simultaneamente 
RUN/STOP e RESTORE. 

Esempio 


■IO INPUT "CHE ETÀ'’ AUETE ";ETA 
'20 ANN0=1984-ETA 
30 PRINT "SIETE NATI NEL :";ANNO 
40 GOTO 10 


CHE ETÀ' AUETE ? 20 
SIETE NATI NEL : 1964 


CHE ETÀ' AVETE ? 


Premete 
RUN/STOP 
e RESTORE 


Per provocare uno slittamento di riga prima della visualizzazione di "sei nato nel:”, 
aggiungete l’istruzione: 


25 PRINT 


Provoca 
un salto 
di linea 


Nota: potete anche scrivere "25 ?”. 

Al momento dell’esecuzione il ? è sostituito dall’istruzione PRINT. 
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Istruzione REM 

Non si tratta di una vera e propria istruzione, poiché non influenza lo svolgimento 
del programma. 

Essa permette di introdurre delle note nel programma e di migliorarne la presen¬ 
tazione (REM deriva da REMark). 


_ ^ 

Per separare 
2 fasi 

del programma 




Tutto ciò che segue 
PEM è un commento 


5 REM-SOMMA E PRODOTTO DI 2 NUMERI 

10 INPUT "PRIMO NUMERO ";N1 
20 INPUT "SECONDO NUMERO";N2 
25 REM — 

30 PRINT "SOMMA :";N1+N2 
40 PRINT "PRODOTTO :" ; N1*N2 


Jf'1 


In breve 


• L’istruzione GOTO n. riga (ANDARE A n. riga) provoca il proseguimento 
del programma alla riga indicata. 

• REM permette di introdurre dei commenti nel programma. È ignorata du¬ 
rante l’esecuzione. 

• Al fine di migliorare la lettura di un programma, è consigliabile inserirvi 
dei commenti usando REM (o ’). 

• R li N/S TOP permette di BLOCCARE l’esecuzione del programma. 








Come salvare 
un programma 


SAVE 

Il comando SAVE "NOME del programma” permette di memorizzare su cassetta il 
programma presente in memoria. 

SAVE "ANNUARIO" 

Il programma in memoria sarà denominato "ANNUARIO” e memorizzato su 
cassetta. 

Naturalmente sulla stessa cassetta si possono salvare più progra mm i Fate però 
attenzione nel trovare l’inizio e la fine di ogni programma, usando il contagiri del 
vostro registratore, per non fare accavallare due programmi. Infatti, la parte fina¬ 
le del primo programma sarebbe distrutta dall’inizio del secondo. 


VERIFY 

Questo comando permette di "VERIFICARE” che il programma sia correttamente 
salvato. 

Battete VERIFY "ANNUARIO”: 

il computer cercherà sulla cassetta già riavvolta il programma ANNUARIO. Una 
volta trovato, verifica byte per byte se è conforme al programma presente in me¬ 
moria centrale. 

Nota: se il nome del programma da verificare non è specificato, il computer verifi¬ 
ca il primo programma che trova sulla cassetta. 

LOAD 

Il comando LOAD "NOME del programma” carica in memoria il programma "NO¬ 
ME del programma” presente sulla cassetta. 

L'istruzione NEW è eseguita automaticamente: i dati precedenti sono cancellati. 
Il comando LOAD utilizzato da solo carica in memoria il primo programma presen¬ 
te sulla cassetta. 

Premendo i tasti "SHIFT/RUN STOP” caricate in memoria il primo programma 
presente sulla cassetta e ne lanciate automaticamente l’esecuzione. 



Tests: 

IF condizione THEN istruzione 
(SE condizione ALLORA istruzione) 


L’istruzione IF... THEN... permette di verificare una condizione e di eseguire una o 
più istruzioni se essa è vera. 


10 INPUT "BATTI UN NUMERO " ; N1 

20 IF (N1>10) THEN PRINT . "HAI BATTUTO UN NUMERO SUPERIORE A 
30 PRINT “SEGUITO" 

40 GOTO 10 


10 ", 


RUN 

BATTI UN NUMERO ? -ISt? 

HAI BATTUTO UN NUMERO SUPERRI0RE A 10 
SEGUITO 


Questa istruzione 
è eseguita 
solo se NI 
è maggiore di 10 


BATTI UN NUMERO ? 
SEGUITO 


L’istruzione 20 significa: 

20 SE NI E’ SUPERIORE A 10 ALLÓRA SCRIVI "HAI BATTUTO UN .. 


IF THEN 



Sia che l’istruzione dopo THEN sia eseguita o meno, il programma prosegue con la 
riga che segue IF... THEN... 





Tests: IF condizione THEN istruzione 25 


È in questa istruzione (come in GOTO) che risiede tutta la potenza del computer, 
poiché essa rende possibile eseguire sequenze di istruzioni solo in determinati 
casi. 

Nota: per eseguire più istruzioni, basta separarle con il carattere (due punti). 


' I 3 istruzioni \ 

r 

20 IF <N1>10)'THEN F'RINT :F'RINT"HAI BATTUTO.JPRINT ' 

~ri _ 

Provoca un salto 
di linea prima 
di visualizzare 
il messaggio 


Le diverse operazioni di confronto sono: 

= uguaglianza > maggiore di => maggiore o uguale a 
< minore di < > diverso da <= minore o uguale a 

Uscita da un loop 

L’istruzione IF... THEN... permette di "uscire” da un loop. 


Il seguente programma effettua la totalizzazione degli acquisti. 


10 T=0 
15 ’• 

A20 INPUT "QUANTITÀ’ “;QT 
30 IF QT=0 THEN GOTO 100 
40 INPUT "PREZZO " j£Z^ 
50 T=T+QT*F'Z 
60 GOTO 20^-^ 

70 

100 F'RINT "TOTALE: ";T 
•110 END 


RUN-y 

QUANTITÀ’ ? 3-» 
PREZZO ? 50-b 
QUANTITÀ’ ? \~f 
PREZZO ? 12 
QUANTITÀ’ ? 
TOTALE: 162 


PER FINIRE 



Quando tutti gli acquisti sono stati sommati, rispondiamo 0 alla domanda 
"Quantità?”. 

La comparazione del valore 0 alla riga 30 permette di uscire dal loop per visualiz¬ 
zare il totale. 
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Uscita da un loop per mezzo di un contatore 

Un altro metodo per uscire da un loop consiste nel contare il numero dei passaggi 
nel loop usando una variabile (CONTATORE neH’esempio). Una comparazione del 
valore di CONTATORE permette di uscire dal loop. 


10 C0NTAT0RE=0 
20 T=0 
30 : 

40 INPUT "NUMERO ";X 
50 T=T+X 

60 C0NTAT0RE=C0NTAT0RE+1 
70 IF C0NTAT0RE=10 THEN 100 
80 GOTO 40 
90 : 

100 F'RINT "TOTALE * " ; T 

RUNg 
NUMERO ? 

NUMERO ? 

NUMERO ? 

NUMERO ? 

NUMERO ? 

NUMERO ? 

NUMERO ? 

NUMERO ? 

TOTALE : 




Se non si conosce il numero dei valori da aggiungere basta fare: 


5 INPUT "QUANTI NUMERI ";N 
70 IF CONTATORE^ THEN 100 


RUNjg 

QUANTI NUMERI 


NUMERO ? Xf ) 
NUMERO ? 6J I 
NUMERO ? 8p ( 
NUMERO ? 13^) 
TOTALE : 28 


'p 


& 


4 volte 


Test di condizioni multiple 

Possono essere realizzate delle comparazioni multiple per mezzo degli OPERATO¬ 
RI LOGICI AND e OR. 

Condizione 1 AND condizione 2: Le istruzioni dopo THEN sono eseguite solo se la 
condizione 1 E la condizione 2 sono vere. 
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10 INPUT "BATTI UN NUMERO ";N 

20 IF N>0 AND N<10 THEN PRINT "IL NUMERO E' MAGGIORE Dì 0 E MINORE DI 10“ 
30 GOTO 10 


BATTI UN NUMERO ? 5_ 

IL NUMERO E' MAGGIORE DI 0 E MINORE DI 10 
BATTI UN NUMERO ? 13^. 


BATTI UN .NUMERO ? 


Condizione 1 AND condizione 2: Le istruzioni dopo THEN sono eseguite se una del¬ 
le due condizioni è vera (o lo sono entrambe). 


10 INPUT "BATTI DUE NUMERI X,Y ";X,Y 

20 IF <X>0> OR (Y>0) THEN PRINT "X 0 Y E' POSITIVO (0 ENTRAMBI)" 
30 GOTO 10 


RUN — 

BATTI DUE NUMERI X,Y ? 12,4 
X 0 Y E' POSITIVO <0 ENTRAMELI ) 

BATTI DUE NUMERI X,Y ? -4,-1 -y 

BATTI DUE NUMERI X,Y ? 



Loop automatico: 
FOR... NEXT 


Dobbiamo visualizzare i numeri 1, 2, 3 e i loro quadrati 1*1, 2*2, 3*3. 


Prima soluzione: (senza GOTO e IF... THEN...) 


10 Nl-1 

20 : 

30 PRINT NI 

7 N1*N1 

*40 N1=N1+1 
[50 IF NI>3 

THEN GOTO 100 

'60 GOTO 30 
70 : 

100 END 


RUNar 

1 

1 

9 

4 

3 

9 





Per calcolare i quadrati dei numeri da 1 a 100, questo metodo risulterebbe lungo e 
fastidioso. 

Seconda soluzione: (con GOTO e IF... THEN...) 

In questo modo, invece di scrivere molte volte la sequenza: 

NI =N1 + 1 
PRINT NI, NI * NI 

scriviamola una sola volta. 

Per eseguirla più volte, utilizzeremo un’istruzione di allacciamento GOTO, e, per 
uscire dal loop, compareremo il valore di NI. Una volta che NI è diventato supe¬ 
riore a 3, faremo fermare il programma. 




Loop automatico: FOR... NEXT 29 



Terza soluzione: (loop automatico FOR... NEXT...) 

Semplifichiamo il programma precedente con un loop automatico: FOR... NEXT... 



Come si comporta il programma? 

— La riga 10 colloca in memoria il "valore limite” 3 ed assegna alla "variabile con¬ 
tatore” NI il valore 1. 

— La riga 20 è eseguita con NI = 1. 

— La riga "30 NEXT NI” aumenta NI di uno e controlla se NI è MINORE od 
UGUALE al "valore limite” 3. 

Se NI è minore od uguale a 3, la riga seguente FOR (la 20) è eseguita nuovamente 
con NI = 2. 

In questo modo, la riga 20 è eseguita 3 volte con NI = 1, 2, 3. 

Esempi 

Per visualizzare 5 linee di asterischi: 
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10 FOR N=1 TO 5 
20 SPRINT "*»***" 
30 NEXT N 
READY. 

RUN y 


Per visualizzare i quadrati dei numeri da 4 a 6: 

10 FOR NI"4 TO 6 
20 SPRINT NI,N1*N1 
30 NEXT NI 

40 FRINT "IL LOOP E' TERMINATO" 
RUN-g 

4 16 

5 25 

6 36 

IL LOOP E’ TERMINATO 


Sintassi completa del ciclo FOR 

Un passo di esecuzione può essere specificato come STEP: 

La specifica "STEP valore dell’incremento” indica al computer che deve aumentare 
la variabile contatore del valore indicato ad ogni esecuzione del loop. 

Omettendo la specifica STEP il contatore viene incrementato automaticamente di 
1 ad ogni passaggio. Dunque è la medesima cosa non specificare il valore dell’in¬ 
cremento od assegnargli il valore 1. 
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FOR contatore = valore iniziale TO valore finale STEP incremento 
istruzione 1 
istruzione 2 


NEXT contatore 

Quando l’istruzione FOR è eseguita, il BASIC assegna alla "variabile contatore” il 
"valore iniziale” specificato e conserva in memoria il "valore limite” indicato. 
Tutte le istruzioni tra FOR e NEXT sono inizialmente eseguite con contatore = va¬ 
lore iniziale. 

L’esecuzione dell'istruzione NEXT aumenta il valore del "contatore” dell'incremen¬ 
to indicato. 

• Se il valore del "contatore” è minore del "valore limite”, le istruzioni tra FOR e 
NEXT sono eseguite nuovamente con il nuovo valore del "contatore”. 

• Se il valore del "contatore” ha raggiunto il valore finale l’esecuzione del loop si 
interrompe ed il programma prosegue con la riga che segue NEXT. 

Esempi 

STEP positivo: 

10 FOR C=1 TO 5 STEP 2 
20 SPRINT C; 

30 NEXT C 

40 PRINT "E' FINITO" 

RUN 

1-3 5 E' FINITO 


Tabella dei seni: 

10 FOR ANG=Q TO 3.14 STEP 3.14/10 
20 SPRINT ANG,SIN(ANO) 

30 NEXT ANG 

RUN 
0 

.314 
.628 
.942 


STEP negativo: 

10 FOR C=3 T0 1 STEP-1 
20 ;PRINT C; 

30 NEXT C 

RUN 

3 2 1 

Un ciclo FOR è eseguito almeno una volta, anche se il "valore limite" è minore del 
"valore iniziale”. (La comparazione di fine è fatta al momento dell’esecuzione di 
NEXT). 


0 

.30886552 

.587527526 

.808736061 
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10 D=3:F=1 
20 : 

30 FOR C=D TO F 
40 SPRINT C 
50 NEXT C 



Il ciclo 

non dovrebbe 
essere eseguito 


Dobbiamo quindi prevedere una comparazione. 

35 IF OF THEN 50 


Errori: 


10 F0R 1=1 T0 
20 SPRINT I 
30 NEXT J 
READY. 

RUN 
1 


Errore! 

Scambiare J per I 


?NEXT UITH0UT F0R ERR0R IN 30 


Esempio 

Tabellina di moltiplicazione per 8: 


Questo ciclo FOR visualizza la tabellina di moltiplicazione per 8. 


30 FOR Nl=l T0 10 
40 SPRINT NI ;"X" 
50 NEXT NI, 
READY.<> 


ni *e 



6 X 8 = 48 
? X 8 = 56 

8 X 8 = 64 

9 X 8 = 72 

10 X 8 = 80 


Senza ciclo, si dovrebbe scrivere: 


10 F'RINT 1; ,, X";8;" = ";1*8 
20 F’RINT 2;"X" ? 8;'' = ,, ?2S8 
30 F'RINT 3 ; "X" ; 8 ; " = " ; 3*8 
40 F'RINT 4 ; "X" ; 8 ; " = " ; 4*8 


Questo sarebbe senz’altro troppo scomodo. 
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Per generalizzare questo programma a tutte le tabelline di moltiplicazione: 


10 INPUT "QUALE TABELLINA ";T 
20 : 

30 FOR Nl=l T0 10 
40 :PRINT NI ;"X"jT;" = ";N1*T 
50 NEXT NI 
60 GOTO 10 


RUNy 

QUALE TABELLINA ? ?~z 
1X9 = 9 

2 X 9 = 18 

3 X ? = 27 

4 X 9 = 36 


Loop ad incastro 

Molti cicli FOR possono essere "inscatolati”. 

Il seguente programma visualizza le tabelline di moltiplicazione da 2 a 5. 

Il loop "interno” è eseguito una prima volta con T = 2, poi con T = 3, ecc. 



3 = 3 
3 = 6 
3 = 9 







Le stringhe 
di caratteri 


Esistono variabili chiamate "stringhe di caratteri”. Si distinguono dalle variabili 
numeriche per la presenza del simbolo $ alla fine nome. 


Queste variabili sono utilizzate nella maggioranza delle applicazioni (gestioni, 
istruzione, giochi). 


10 INPUT ” IL VOSTRO NONE 
20 : 

i30 F'RINT NOflES 
T 40 GOTO 30 


" ; NOME* 

/ 

Occorre un $ 
alla fine 


RUN? 

IL VOSTRO NOME 

MARCO 

MARCO 

MARCO 


MARCO? 


Premete 
RUN/STOP 
per bloccare 


NOME$ 


M 

E 

R 

C 

O 


Per impedire il salto di una linea dopo la stampa del nome, basta aggiungere un 
punto e virgola dopo NOME$. 

30 FRI NT NOMtr -p. 

RUN 

IL.. VuSTRO NOME ? MARCO 
MARC0MARCOMARCOMARCOMARCOMARCOMARCOMAR - 

L’assegnazione del valore "MARCO” a NOME$ necessita la presenza delle virgolet¬ 
te. In caso contrario, "MARCO” sarà considerato come un nome di variabile. 



10 N0ME*="MARC0" 
20 F'RINT NOME* 


Ci vogliono 
le virgolette 


RUN"? 

MARCO 


La lunghezza delle stringhe è limitata a 255 caratteri. 
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• I caratteri possono essere anche cifre o caratteri grafici. 

Comparazione di stringhe 

La comparazione di stringhe è effettuata dal BASIC carattere per carattere, da si¬ 
nistra a destra. 

Se un carattere di una stringa è diverso dal suo corrispondente, la comparazione si 
interrompe. 


AO INPUT "1 A NOME";Nl$ 

20 INPUT "2 A NOME" ; N2$ 

30 : 

40 IF N2$>N1* THEN PRINT N2*;"E' 
50 GOTO'10 


RUN 

1 A NOME ? MASSIMO-*. 

2 A NOME ? MAURIZIO ^ 

MAURIZIO E' MAGGIORE DI MASSIMO 


MAGGIORE DI “ ; Nl$ Senso di paragone 




ni * | M | A |_S_] S ) 

DH 

E 

|°i 


{ t 1 





nps | M | A | U | R 

1 z 

UM 


Quando un carattere 
diventa superiore 
a un altro, 

il confronto si arresta 
(Uè più grande di S) 


Concatenazione di stringhe 

La concatenazione (o addizione) di stringhe si compie per mezzo dell’operatore " + ” 

(come per le variabili numeriche). 


10 INPUT "IL VOSTRO COGNOME";COGNt 

20 INPUT "IL VOSTRO NOME";NOM$ 

30 : 

40 X$=C0GN$+N0M* 

50 Y$=C0GN$+" "+N0M$ 

60 PRINT X$ 

70 PRINT Y$ 


COGN$ 


NOMS 


B 

LD 

A 

N 

C 

H 

ra 

+ 

s 

m 

E 

E 

A 

N 

0 


X$ 


B 

LU 

0 

N 

C 

H 

m 

s 

0 

E 

1 F 

A 

In! 

0 


RUNy 

IL VOSTRO COGNOME ? BIANCHI ^ 
IL VOSTRO NOME ? STEFANQ - 
BIANCHISTEFANO 
BIANCHI STEFANO- 



X$ = COGNS + NOMSÌ 


Y$ = COGNS + ‘ ” + NOMS 


Lunghezza di una stringa: LEN (stringa) 

LEN (stringa) dà il numero dei caratteri di una stringa. 
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10 INPUT "IL VOSTRO COGNOME"*C0GN$ 

20 L=LEN < COGN$ ) 

30 PRINT "IL VOSTRO COGNOME E’ DI";L:"LETTERF" 


RUN 

IL VOSTRO COGNOME ? BIANCHI -, 

IL. VOSTRO COGNOME E’ DI 7 LETTERE 


COGN$ 


B 

0 

0 

N 

0 

0 

□ 


L = 7 


La lunghezza di una stringa può essere variata durante l’esecuzione del program¬ 
ma. La lunghezza massima non deve essere assegnata all’inizio del programma. 

LEFT$ (stringa, lunghezza da prendere) 

Dà i carattere di sinistra di una stringa. 


10 X$~"Ó4 PER TUTTI 1 
20 Y$=LEFT$< X$,2) 

30 PRINT Y$ 


RUNy 

64 


6 


□ 

P 

E 

R 

□ 

E 

u 

E 

E 

m 


LEFT$ (X$,2) 

♦ 


6 4 


Per esempio: 


10 INPUT "IL VOSTRO COGNOME";C0GN$ 
20 F0R L=1 T0 LEN(C0GN$) 

30 PRINT LEFT$ (N0M$ ,L) 

40 NEXT L 


RUN-, 

IL VOSTRO COGNOME ? BIANCHI -, 
B 

BI 
BIA 
BIAN 
BI ANO¬ 
BI ANCH 
BIANCHI 


RIGHT$ (stringa, lunghezza da prendere) 

Dà i caratteri di destra di una stringa. 


10 X$="64 PER TUTTI” 

X$ 


20 Y$=RIGHT$(X$,5 > 



30 PRINT Y$ 

64 

PER TUTTI 


| RIGHT$(X$,5) 


RUN 

TUTTI 


TUTTI 




Le stringhe di caratteri 37 


Il seguente programma visualizza le combinazioni circolari dei caratteri di una 
stringa: 


10 

20 

30 

40 

50 

60 


N0f1E$=" BIANCHI" 

FRI NT N0ME$ 

FOR N=1 T0 LEN(N0ME$) 

: N0P1E$=RIGHT$(N0ME$,1)+LEFT*<NOME*,LENÌN0ME$>-1> 
: FRI NT N0ME$ 

NEXT N 


COGN$)M$ 


RUN j, 

BIANCHI 
IBIANCH 
HIBIANC 
CHIBIAN 
NCHIBIA 
ANCHIBI 
IANCHIB 
BIANCHI 


B 

m 

[*i 

N 

C 


MID$ (stringa, posizione iniziale, lunghezza da prendere) 

Dà i caratteri centrali di una stringa. 


10 X$="Ó4 PER TUTTI" 
20 Yf-fìID < X$,4 r 3 > 

30 FRINT Y$ 


UN 

: 'ER‘ 


X$ 



64 


PER 


TUTTI 


JL 

PER 


Y$ = MID$(X$,4,4) 


10 INPUT"IL VOSTRO COGNOME";C0GN* 
20 FOR P=1 TO LEN(C0GN$) 

30 : FRINT MID*(C0GN*,P,1 
40 NEXT P X 

READY. 

RUN 

IL VOSTRO COGNOME ? BIANCHI R 


Salto di linea: 
infatti non c'è: 


B 

I 

A 

N 

C 

H 

I 
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Il programma seguente visualizza il nome a rovescio. 

10 INPUT"IL VOSTRO COGNOME";CQGN$ 

20 FOR P=1 T0 LEN(C0GN$ > T0 1 STEP -1 
30 : PRINT MID$<C0GN$,P,1); 

40 NEXT P 


RUN 

IL VOSTRO COGNOME ? BIANCHI,. 

IHCNAIB --^ 

READY. 


Questo scompone una frase: 


10 INF'UT"INSERITE UNA FRASE" ; FR$ 

20 ? 

30 FOR F'=l TO LEN ( FR$ ) 

40 : X$=MID$(FR$,P,1> 

50 ? IF X$ <>" " THEN Y$=Y$+X$ 

60 :IF X$=" " THEN PRINT Y$;Y$=" " 

70 NEXT P 
80 PRINT Y$ 

RUN 

INSERITE UNA FRASE ? LA MAMMA HA FATTO I GNOCCHI 
LA 

MAMMA 

HA 

FATTO 

I 

GNOCCHI 


PER SOSTITUIRE UNA PARTE DI STRINGA 


10 X$="AAAAAAAA" 

20 P=4 : Y$="ZZZ" 

30 GOSUB 100 
40 PRINT X$ 

50 END 
60 : 

100 X$ = LEFT$ ( X$ , F'-l }+Y$+RI6HT$(X$,LEN<X$)~F'-LEN(Y$)+l) 
110 RETURN 



RUN -, 
AAAZZZAA 


ASC (carattere) 

Dà il codice di un carattere. 


Tutti i caratteri sono rappresentati in linguaggio macchina sotto forma binaria. Il 
programmatore ha accesso a questi codici sotto forma decimale. 
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10 C$="B" 

20 PRINT ASC(C$) 


i 

RUN 66(codice) 

66 


I codici dell’alfabeto (A, B, C,...Z) sono 65, 66, 67,...91. 

ASC (stringa) 

Dà il codice del primo carattere della stringa. 

La stringa non deve essere vuota. 

10 X$"CARLO" 

20 PRINT ASC( X$ > 


WJN 
67 * 


67 


È 


(carattere) 


CHR$ (codice) 

Fornisce il carattere identificato dal codice. Solo alcuni caratteri sono stampabili. 


10 X=67 

20 PRINT CHR$(X) 


RUN-g 

C * 


10 POR C=65 T0 65+26 
20 : PRINT CHR$(C>; 
30 NEXT C 


ABCDEFGHIJKLMNQPQRSTUVWXYZ 

Questo programma fa corrispondere ad ogni lettera dell'alfabeto la lettera succes¬ 
siva (per esempio, ad A viene fatta corrispondere B). 

10 INPUT "IL MOSTRO COGNOME";C0GN$ 

20 : 

30 F0R P=1 T0 LEN(C0GN$) 

40 : X=ASC(MID$(C0GN$,P,1)) 

50 ; PRINT CHR$(X+l)• 

60 NEXT P 


RUN~jg 

IL MOSTRO COGNOME 
CJB0DIJ—_ 


BIANCHI- 


Il cognome 
risultante 
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Alcuni caratteri servono per inviare comandi alle periferiche: 


Alcuni codici ASCII 


PRINT CHR$(10); provoca un salto di linea (senza ritorno a capo) 

PRINT CHR$(13); provoca un ritorno a capo (senza salto di linea) 

PRINT CHR$(147); cancella lo schermo 

STR$(X) 

Converte un numero sotto forma di stringa, permettendo così l’accesso a ciascuna 
cifra per mezzo delle funzioni LEFT$, RIGHT$, MID$. 

10 X=75010 
20 X*=STR*<X> 

30 PRINT X 

40 PRINT X*,RIGHT*(X*,3) 


RUN X 

_ 75010 - 

[ spazio T^75010^ 010"^ 

xs 


Arrotondamento 


Notate la presenza di un carattere all’inizio della stringa. Esso corrisponde alla po¬ 
sizione del segno + (implicito). Il suo valore è 32. 

VAL (stringa) 


Dà il valore numerico di una stringa che inizia per cifre (o per uno spazio). 

Se la stringa inizia con una lettera, il valore è nullo. 


10 PREZZ0*="13 flILIONI" 
20 X=VAL(PREZZ0$> 

30 PRINT X 


RUN 

13 


Un stringa non può essere trattata direttamente come un valore. 


10 PREZZ0*="13" 

20 PRINT PREZZO**} 
30 PRINT X / 

READY. 

RUN 


Provoca 
un errore 


?TYPE PlISdATCH ERR0R IN 20 
READY. 





Messa a punto 
dei programmi: 


RUN/STOP - STOP - CONT 


I programmi non funzionano sempre "al primo colpo”. Il BASIC invia messaggi per 
alcuni errori (per esempio di sintassi) ma non individua gli errori logici. Per i casi 
più delicati, occorre seguire passo per passo lo svolgimento del programma, cosa 
che, in BASIC, è relativamente semplice. 

• Premendo STOP/RUN od aggiungendo un’istruzione STOP, possiamo interrom¬ 
pere l’esecuzione del programma. 

Possiamo allora visualizzare i valori delle variabili in modo diretto. 

L’esecuzione interrotta può essere proseguita battendo CONT (continua). 

Esempio 

II programma seguente effettua la media di molti voti. 

Abbiamo commesso (volontariamente!) un errore: alla riga 50, invece di TVOT = 
TVOT + VOT, abbiamo scritto TVOT = VOT. 


10 TV0T=0 
15 NV0T=0 
20 ; 

.30 INPUT"V0T0";VOT 
'40 IF V0T=0 THEN 100 

50 TV0T=VQT _—— 

60 NV0T=NV0T+1 
v0 GOTO 30 
80 : 

100 PRINT"MEDIA" ;TV0T/NV0T 


ERRORE! 

TVOT = TVOT + VOT 


RUN~¥ 

VOTO ? 8 j 
VOTO ? 
VOTO ? 
VOTO ? 
MEDIA 



Si immette O 
per indicare la fine 
dei voti 


La media dovrebbe essere 6,3 


Naturalmente, la media ottenuta (6) è falsa. 
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• Sul Commodore 64 non possiamo bloccare un programma in attesa su di 
un’istruzione "INPUT” (con RUN /STOP). 

Di conseguenza, per l’esempio in questione, dovremo utilizzare l’istruzione "STOP”: 


Aggiungere 
questa linea 


55 STOP 


RUN 

VOTO ? 7 


BREAK IN 65 
READY. 



FRINT TUOT,NUOT 
7 1 


Si può vedere 
a ogni passaggio 
nel ciclo 
come cambino 
i valori 
delle variabili 
TVOT e NVOT 


Per ora, niente di anormale. 


Battiamo CONT per proseguire con l’esecuzione del programma ed interrompiamo 
di nuovo dopo avere immesso il secondo dato: 


Per 

continuare 


CONT 

MOTO ? 6 


BREAK IN 65 

_ READY. 

Il totale PRINT VOT , TVOT, NVOT 

in TVOT non è stato 6__ 6 2 

effettuato -' 


Ci accorgiamo, osservando il valore di TVOT, che il totale dei dati non è stato 
effettuato. 

• Potremmo anche inserire delle righe per visualizzare i valori delle variabili: 


45 PRINT TUQT,VOT 
55 PRINT TMOT,NVOT 


Quando l’errore è stato trovato e corretto, eliminiamo queste righe. 







I sottoprogrammi: 
GOSUB/RETURN 


Capita spesso che una stessa sequenza di istruzioni sia utilizzata PIÙ VOLTE in un 
programma. 

Un sottoprogramma permette di scrivere UNA SOLA VOLTA questa sequenza, che 
verrà poi richiamata da diversi punti del programma per mezzo di GOSUB n. riga. 


10 

Ì5 


A=30 : B=1Q 


20 

30 

50 


S=A+B 
P=A*B 
FRI NT 


60 

70 

90 


A;B,"SOMMA •";S;"PRODOTTO 


A=20 


B=1 


100 S=A+B 
110 P=A*B 

120 F'RINT A ; B, "SOMMA 


130 END 


Stessa sequenza 
I di istruzioni 




’";S;"PRODOTTO :" : p 


20 GOSUB 500 provoca un allacciamento del programma alla riga 500 (come lo 
avrebbe fatto GOTO 500), ma l’istruzione RETURN (RITORNO) posta alla fine del 
sottoprogramma provoca un RITORNO AUTOMATICO all’istruzione che segue 
GOSUB 500, cioè la riga 30 dell’esempio. 

Per il secondo richiamo del sottoprogramma alla riga 100, il ritorno viene effettua¬ 
to alla riga 130. 
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Ritorno 
automatico 
alla linea 

che segue GOSUB 


10 A=30 : B=10 
20 GOSUB 500 - —- cfaamata » . 
60 : \^. * 
70 5 

90 A=20 : B=5 /"\3> 

100 GOSUB 500^ \ 

130 END \ 



Si rimpiazza 
con un 

sottoprogramma 


500 PRINT "INIZIO SOTTOPRO GRANII A" 
510 S=A+B 


520 P=A*B 

530 PRINT A ; B,"SOflNA !";S;"PRODOTTO 
540 PRINT "FINE SOTTOPROGRAfMA" 

550 PRINT 
560 RETURN 


RUN-g 

INIZIO SOTTOF'RDGRAMMA 
30 IO SOMMA : 40 PRODOTTO : 300 
FINE SOTTOPROGRAMMA 

INIZIO SOTTOPROGRAMMA 
20 5 SOMMA : 25 PRODOTTO : 100 

FINE SOTTOPROGRAMMA 


Nota: la riga 130 indica la fine del programma ed impedisce quindi (una volta ese¬ 
guito il programma principale) di entrare nel sottoprogramma. 

Un sottoprogramma può richiamarne a sua volta un altro. 

Gli indirizzi di ritorno (91 e 540 nell’esempio) sono gestiti dal BASIC come se fosse¬ 
ro incolonnati. 


50 

60 

70 

80 G0SU3 
90 
100 
110 



1000 ..... 
1010 . 

1030 . 

1040 . 

1050 . 

1060 RETURN 


03 

=> 

co 


O 

CD 


A 



t 


Colonna 
degli indirizzi 
di ritorno 















I sottoprogrammi: GOSUB/RETURN 45 


Le istruzioni sono eseguite nel seguente ordine: 


50,60,70 
80,G0SUB 500 


500,510,520 


530,G0SUB 500 
1000,1010,...,1050 
1060 RETURN 
540,550 
560 RETURN 
90,100 


NIENTE 


f~90 1 


90 


540 


To 


540 


90 




90 


90 




NIENTE 


Programma principale 
Richiamo 1 A sottoprogramma 
Inizio 1 A sottoprogramma 
Richiamo 2 A sottoprogranima 
1 A sottoprogranima 
Ritorno al 1 A sottoprogr anima 
1 A sottoprogr anima 
Ritorno programma principale 
Programma'principale 


Non cercate di entrare o di uscire da un sottoprogramma per mezzo di GOTO. 






Interludio 


A proposito dei diagrammi di flusso 

Bisogna utilizzare dei diagrammi di flusso? 

Questo punto è molto controverso; molti sono favorevoli; altri, contrari, non li 
utilizzano. 

I favorevoli ai diagrammi pretendono che un programma debba essere preceduto 
da un diagramma, che un programma da solo non può essere compreso 
direttamente. 

Coloro che non li utilizzano affermano che un programma ben strutturato non ab¬ 
bia bisogno del diagramma, che un diagramma troppo sviluppato divenga ben pre¬ 
sto confuso. 

Noi pensiamo che sia importante prestare molta cura alla presentazione dei pro¬ 
grammi, in modo tale che possano essere compresi con il minimo sforzo. 

Un diagramma "segue” raramente un programma; rimane solamente il program¬ 
ma. È per questo che un programma deve essere il più documentato possibile. 


DATA/READ/ 

RESTORE 


L’istruzione DATA permette di definire dei dati nel programma stesso. Essi vengo¬ 
no in seguito letti entro variabili per mezzo dell’istruzione "READ variabile” (LEG¬ 
GERE variabile). 


10 

15 

20 

30 

40 

50 

60 

70 

80 



puntatore di DATA 
all’inizio 


Puntatore di DATA 
dopo aver eseguito 2 HEAD 


F'RINT 01,02,03, 04 

FRINT "MEDIA (01+02+03+04)74 


RUN 

8 6 7 

MEDIA : 6.75 


Il Basic legge in successione 
i valori 
8, 6, 7, 6 
in NI, N2, N3, N4 


"READ NI” legge il primo dato (10) in VI. 

Il puntatore di DATA (comandato dal BASIC) aumenta di 1. 

Così "READ V2” legge il secondo dato in V2, ecc. 

Nell’esempio seguente abbiamo supposto che il numero dati da leggere (4) fosse 
conosciuto. 

Per trovare la fine dei dati mettiamo 99. 
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10 DATA 8,6,7,6,99 
15 : 

,30 READ DOT 

''40 IF V0T=99 THEN GOTO 100 
45 F'RINT VOT, 

50 TVOT=TVOT+VOT 
60 NV0T=NV0T+1 
70 GOTO 30 

80 REFI- 

100 F'RINT "MEDIA :";TVOT/NVOT 


RUN 

8 6 7 6 

MEDIA : 6,75 


Per indicare 
la fine 
del voto 


I dati possono essere scritti su più righe: 

10 DATA 8,6,7 
20 DATA 6,7,99 

è equivalente alla riga del programma seguente. 

Le istruzioni DATA possono essere scritte all’inizio od alla fine del programma. 

Caratteri speciali 

Le istruzioni DATA contenenti caratteri speciali devono essere poste tra virgolette. 

Senza le virgolette, la virgola sarà considerata come separatrice. 


10 DATA "VIA MERCANTI,15" 
20 : 

30 READ X$ 

40 F'RINT X$ 


RUN 

VIA MERCANTI,15 


Errori 

OUT OF DATA. Se il numero delle READ eseguite è superiore al numero dei dati 
presenti nell’istruzione DATA, appare il messaggio OUT OF DATA. 

10 DATA 15,10 
20 READ X*> / 

30 READ Y*4p/ 

40 READ 1 * 


Manca 
un dato 


RUN 


?0UT 0F DATA ERR0R IN 40 
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SYNTAX ERROR: il tipo di dato letto deve accordarsi con il tipo di variabile. 


10 DATA 
20 READ 

RUN 

7SYNTAX 



Numerico 


ERROR IN 10 


Il dato (stringa) 
non si accorda 
con il tipo di variabile 
(numerica) 


Occorre scrivere: 20 READ X$. 


RESTORE 


Si riposiziona all'inizio dell'istruzione DATA, permettendo così di rileggerla dal 
primo dato. 


10 DATA'6,3,14 
20 : 

30 READ A 
40 READ B 
50 READ C 
60 ? 

70 RESTORE 
80 ? 

90 READ D,E,F 
100 : 

110 F'RINT A, B , C 
120 F'RINT D,E,F 


RUN 

6 3 14 

6 3 14 


READY. 

1 REM **** INIZIALIZZAZIONE BASIC **** 

5 C0NTAT0RE=0 ? REM * CONTATORE DEI LOOP 
10 REM * CARICAMENTO TABELLA(MESI ) 

15 DIM M$(12) : REM DICHIARAZIONE TABELLA 

20 CQNTAT0RE=C0NTAT0RE+1 

35 READ A$ ; REM LETTURA DEI MESI IN DATA 

40 M$(CO)=A$ ! REM CARICAMENTO TABELLA 

45 IF CONTAT0RE<12 THEN GOTO 20 

50 C0NTAT0RE=0 : REM INIZIALIZZAZIONE CONTATORE 

110 F'RINT "LA VOSTRA ETÀ'"; INPUT ETÀ' 

115 F'RINT : INPUT "MESE IN CIFRE" j MESE 

116 REM *** TEST ERRORI *** 

117 IF ME<1 OR ME>12 THEN GOTO 115 

120 F’RINT : F'RINT "MESE DI NASCITA" ;M$(ME> 

130 NA=1984~ETA' : F'RINT ; F'RINT "ANNO DI NASCITA" jNA 
140 F'RINT i F'RINT 


(segue) 












50 II Commodore 64 per tutti 

{seguito) 


150 ‘C0NTAT0RE=C0NTATQRE+1 ; IF C0NTAT0REC3 THEN GOTO 110 
170 PRINT "FINE DEL PROGRAMMA" 

200 DATA GENNAIO,FEBBRAIO,MARZO,APRILE 

210 DATA MAGGIO,GIUGNO,LUGLIO.AGOSTO 

220 DATA SETTEMBRE,OTTOBRE,NOVEMBRE,DICEMBRE 


LA MOSTRA ETÀ' ? 17 


MESE 

IN 

CIFRE ? 

12 

MESE 

DI 

NASCITA 

DICEMBRE 

ANNO 

DI 

NASCITA 

1967 

LA VC 

ISTRA ETÀ' ' 

? 23 

MESE 

IN 

CIFRE ? 

16 

MESE 

IN 

CIFRE ? 

12 

mese: 

DI 

NASCITA 

DICEMBRE 

ANNO 

DI 

NASCITA 

1961 

FINE 

DEL 

PROGRAMMA 


In breve 


• L’istruzione DATA permette di definire dei dati all’interno del programma. 
Questi dati sono separati da una virgola. 

• Le DATA sono lette entro variabili per mezzo dell’istruzione READ 
variabile. 

• L’istruzione RESTORE si riposiziona all’inizio di DATA, il che permette di 
rileggerla dall’inizio. RESTORE non ha effetto sulle variabili. 







Le tabelle 


Per memorizzare 4 voti, potremmo utilizzare 4 variabili VI, V2, V3, V4, facendo: 


10 

INPUT 

"VOTO 

1 " ; M1 

20 

INPUT 

"MOTO 

9" » 1*19 

30 

INPUT 

"MOTO 

3";M3 

40 

INPUT 

"MOTO 

4" ;M4 





Utilizziamo invece una tabella che chiamiamo VOT( ). 

Gli elementi di questa tabella sono identificati come VOT(l) 


VOT(1) —► _8 

VOT(2) —► _6 

VOT(3 )<—► _ 
VOT(4) —► 6 


TabellaVOT( ) 


VOT(2) 

VOT(3) 

VOT(4) 


Potremmo operare come nel seguente esempio: 


10 INPUT "VOTO 1";MQT<1> 
20 INPUT "MOTO 2";V0T<2> 
30 INPUT "MOTO 3";M0T<3) 
40 INPUT "MOTO 4";M0T<4> 
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Ma utilizziamo invece un ciclo FOR; facendo variare un "indice", semplificheremo 
la stesura del programma: 


10 FOR N=1 T0 4 

4 volte J20 : INPUT "VOTO":VOT<N) 
130 NEXT N 


LA 1‘ volta 
è uguale a VOT(1) 
poiché N - 1 


All’inizio, N è uguale ad 1. Di conseguenza 


20 INPUT "VOTO";VOT(N) E’ UGUALE A 
20 INPUT "VOTO";VOT(1) 


È dunque in VOT(l) che si introduce il primo voto. 


8 ==> ! 8! VOT(1) 

I 0! VOT(2 > 
i 0! VOT(3) 
! 0! V0T<4> 


Al secondo passaggio nel ciclo FOR, VOT(N) è uguale a VOT(2), dato che N è diven¬ 
tato uguale a 2. 


RUNy 

VOTO ? 8 -_. 
VOTO ? b'Z 
VOTO ? 

VOTO ? 6^. 


PRINT VOT(1 ) +V0T < 2)+V0T(3)+V0T! 4) 
27 _ 



Totale 


dei voti 


PRINT VOT(1),VOT(2),VOT(3 > V0TC4) 
9 6 7 




Battetelo 
in modo I 
immediato 


6 


Senza il ciclo FOR, avremmo dovuto fare: 


10 N=1 
20 : 3 

|30 INPUT "VOTO" ; VOT ( N ) 
40 N=N+1 

50 IF N=4 THEN 100 
‘60 GOTO 30 
70 : 

100 STOP 
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Stampa della tabella VOT( ) 


Stampa della tabella VOT( ) dopo averla immessa. 

10 FOR N=1 T0 4 
20 INPUT "VOTO"; VOT(N) 

30 NEXT N 

40 REM-STAMPA DELLA TABELLA VOTO 

50 PRINT 

60 PRINT "LISTA DEI VOTI" 

70 PRINT 

80 FOR N=1 T0 4 

90 SPRINT "VOTO";V ; VOT(N) 

100 NEXT N 


RjJNy 

VOTO ? 8j 
VOTO ? 

VOTO ? 7 7 
VOTO ? 6^ 

LISTA DEI VOTI 

VOTO 1 B 
VOTO 2 6 

VOTO 3 7 

VOTO 4 6 


Dimensionamento delle tabelle: DIM (numero di elementi) 

Le tabelle con oltre 10 elementi devono essere dimensionate, per riservare loro lo 
spazio in memoria centrale. 

I voti potranno essere definiti in un’istruzione DATA: 

IO DATA 8,6,7,6 
20 : 

25 DIM VOT(4) 

30 FOR N=1 TO 4 
40 : READ VOTIN) 

50 NEXT N 

60 REM-TOTALE E MEDIA 

70 TV0T=0 

80 FOR N=1 TO 4 

100 sTVOT=TVOT+VOT(N> 

110 NEXT N 
120 : 

130 PRINT "TQTALE/MEDIA:";TVOT,TVOT/4 
RUN 

TOTALE/MEDIA: 27 7 


Ricerca del miglior voto 

Supponiamo da principio che il primo voto sia il migliore. Poi lo confrontiamo col 
secondo. 





54 II Commodore 64 per tutti 


Se questo è maggiore, diventa il migliore, ecc. 


VOT( ) M/GL 

VOT(1) 

VOT(2) 


VOT(4) 



7 


6 


(all’inizio) 


10 DIM DOT(4 ) 

20 REM-INSERIMENTO MOTI 

30 FOR N=1 TO 4 

40 ; INPUT "M0T0";M0T(N) 

50 NEXT N 

60 REM-RICERCA DEL MOTO MIGLIORE 

70 MIGL=M0T(1 ) 

SO FOR N=2 TO 4 

90 ;.IF MOT ( N ) >MIGL THEN MIGL=M0T < N ) 

100 NEXT N 
110 REM- 

120 FRINT "IL MOTO MIGLIORE E' :">MIGL 


RUN 

IL MOTO MIGLIORE E': S 


Nell esempio seguente, non memorizziamo il voto migliore ma la sua POSIZIONE 
nella tabella. 


PMIGL 


VOT( ) 

STUD$( ) 

6 


BIANCHI 

8 


MONGILARDI 

7 



6 




10 DIM MOT(4) 

20 DIM STUD$(4 ) 

30 REM-INSERIMENTO MOTI 

40 FOR N=1 TO 4 

50 ! INPUT "M0T0";M0T(N) 

60 : INPUT "STUDENTE":STUD$(N) 

70 NEXT N 

80 REM- 

90 PMIGL=1 
100 FOR N=2 TO 4 

110 : IF MOT (N ) >MOT ( F'MIGL ) THEN F'MIGL=N 

120 NEXT N 

130 REM- 

140 FRI NT "MIGLIOR MOTO MOT (F'MIGL >, STUD$ (F'MIGL > 
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RUN-y 
VOTO ? 6y 
STUDENTE ? BIANCHI 
VOTO ? 8 J 

STUDENTE ? CIONGILARDI 
VOTO ? 7 

STUDENTE ? RASTELLI 

VOTO ? 6 

STUDENTE ? LODI 

MIGLIOR VOTO! 8 MONGILARDI 


F'RINT F'MIGL-a 

o r 


Modo diretto 


Nota: Le operazioni che abbiamo compiuto (totale, media, ricerca del miglior voto) 
non hanno bisogno di tabelle. Ma delle operazioni più complesse, quale ad esempio 
la selezione, necessitano l’utilizzo di tabelle. 

Selezione dei voti 

Selezioniamo i voti contenuti nella tabella VOT( ). 

Confrontiamo da principio il 2° elemento della tabella con il 1°: 

• Se è maggiore, li lasciamo nell’ordine in cui sono. 

• Se è minore, li invertiamo. 

230 IF VOT(I + i ) < V0T<I> THEN X=V0T<I) : VOT(I)=V0T(1 + 1) : V0T(I + 1)=X : IV=1 

! j 

SE VOT(1 + 1 ) < VOT ( I) ALLORA SCAMBIO DI V0T(I + 1) E DI VOT(I) 


L’inversione di VOT(I) e di VOT(I+l) si compie utilizzando una variabile interme¬ 
dia (X): 


VOT(1) 

VOT(2) 



Variabile 

intermedia 


In seguito, confrontiamo con lo stesso metodo il terzo elemento con il secondo (in¬ 
crementando l’indice di 1) e li invertiamo se non sono nel giusto ordine, ecc. 
Dopo aver confrontato tutti gli elementi della tabella, il maggiore di essi è sceso in 
fondo alla tabella. (Ricordate che cLsono N-l comparazioni per N elementi). Ma la 
selezione non è necessariamente completata. 

Per saperlo, basta osservare il campo di controllo IV. Se non si verificano inversio¬ 
ni durante l’esplorazione della tabella, dovrà essere VOT(l) < VOT(2) < VOT(3) < 
VOT(4). Di conseguenza, gli elementi sono già in ordine. 

Se invece si verificano inversioni, esploriamo di nuovo la tabella. Al termine della 






56 II Commodore 64 per tutti 


seconda selezione, il maggiore degli N-l elementi è arrivato in penultima posizio¬ 
ne Sono necessarie al massimo N esplorazioni per completare la selezione della 
tabella. 


TabellaVOT( ) 


I 

+ 1 



7 
6 _ 
6 

8 


Dopo il 1 ° 
passaggio: 
il maggiore 
è sceso in fondo 
alla tabella 



40 FOR 1=1 T0 4 

50 : INPUT "VOTO" f MOT (U 

60 NEXT I 

200 REM-SELEZIONE DEI MOTI 

205 : 

210 IM=0 

220 FOR 1=1 T0 4-1 

230 ^MOTa + lKMOTm THEN X=M0T ( I ) ; MOT (I ) =M0T ( 1 + 1 ) ; MOT ( 1 + 1 ) =X : IM=1 

250 IF IM=1 THEN 210 
255 : 

260 REO--— STAOF'A DEI M0 T I SELEZIONATI 

270 FOR 1=1 T0.4 
280 5PRINT MOKI) 

290 NEXT I 


RUN 

MOTO) ? 8 
MOTO ? 7 
MOTO ? 6 
MOTO ? 6 
6 
6 

7 

8 
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Per seguire più dettagliatamente l’evoluzione della selezione potete inserire: 


245 FOR K=i TO 4:F'RINT MOT(K) :NEXT K:F'RINT 
Dopo ogni selezione, stampiamo il contenuto della tabella. 


RUN 

7 

6 

6 

tu ^ 


1 ° passaggio: 
il maggiore 
è sceso in fondo 
alla tabella 


A 

6 

m 

8 


2° passaggio 


Per ottenere la lista dei voti in ordine crescente accompagnati dalla lista dei nomi, 
basta far compiere un’inversione nella tabella STUD$( ) ogni volta che ne compia¬ 
mo una in VOT( ). 


40 FOR 1=1 TO 4 

50 JINPUT “MOTO": MOT(I) 

55 ; INPUT "NOME DELLO STUDENTE";STUD$(I) 

60 NEXT I 

200 REFI-SELEZIONE DEI MOTI 

205 : 

210 IM=0 

220 FOR 1=1 T0 4-1 

230 !IF MOT(1+1>=>M0T(I) THEN 240 

235 :X=M0T(I)JMOT <I)=M0T(1 + 1);MQT(1 + 1)=X 

237 :X$=STUD$(I):STUD$(I)=STUD$(I+1):STUD*(1+1)=X$;IM=1 

240 NEXT I 

250 IF IM=1 THEN 210 
255 ! 

260 REFI--STAMPA DEI MOTI SELEZIONATI 

270 FOR 1=1 T0 4 

280 ’• F'RINT MOT ( I ) , STUD$ ( I > 

290 NEXT I 


VOT( ) STUD$( ) 


RUN 


6 


LODI 

6 LODI 



6 


BIANCHI 

6 BIANCHI 

Dopo 


7 

^^ 

RASTELLI 

7 RASTELLI 

il test 


■- 



8 F10NGILARDI 



8 

-► 

MONGILARDI 
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Per ottenere la lista selezionata in ordine crescente dei nomi, fate: 

230 IF STUD*(1+1)=>STUD$(I) THEN 240 


Sistemazione di una fattura 

Nelle DATA sono definiti dei prodotti (referenza, definizione e prezzo). 

I prodotti fatturati sono collocati in 4 tabelle RIF$( ), DEF$( ), PREZZO( ) e QT( ). 
Quando tutti i prodotti saranno stati inseriti, stamperemo la fattura. 



RIF$( ) 

DEF$( ) 

PREZZO( , 

1 QT( ) 


PR 1 


TAVOLO XXX 


200000 


3 

NL -*■ 

PR 2 


SEDIA XXX 


8000 


2 


Esecuzione 


NÓME CLIENTE ? ROTONDI 
INDIRIZZO ? PIA XXXXXXXXXXX 36 

PRODOTTO <F PER FINE) ? PR 1 

QUANTITÀ' ? 3 

PRODOTTO <F PER FINE) ? PR 2 

QUANTITÀ' ? 2 


STABILIMENTO XXXXXX 

FATTURA DI : ROTONDI XXXXXX 

VIA XXXXXXXXXXXX 36 


PR 1 TAVOLO XXX 200000 3 600000 

PR J SEDIA XXXX 80000 2 160000 


TOTALE ? 760000 
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Fattura 


100 REM FT FATTURA 

110 : 

120 REM-RIFERIMENTI,DEFINIZIONI E PREZZO DEI PRODOTTI 

130 : 


140 DATA "F'R 1", "POLTRONA XXXX" , 125000 
150 DATA "F'R 2","TAVOLO XXCXXXXXX" , 200000 
160 DATA “F'R 3", "SEDIA XXXXXX" , 80000 
170 DATA * 

180 REM-SCELTA DEI RIFERIMENTI 

190 INPUT "NOME CLIENTE"; NOME* 

200 INPUT "INDIRIZZO";IND* 

210 : 

220 NL=0 ! REM NL=N* RIGHE DI FATTURA 

230 : 

240 INPUT "RIFERIMENTI PRODOTTI <F PER FINE)";R$ 

250 IF R$="F" THEN 420 
260 INPUT "QUANTITÀ'";QT 
270 : 

280 RESTORE 
290 : 

300 READ RIF$:IF RIF$=* THEN F’RINT "NON ESISTE"!GOTO 240 
310 READ DEF$ 

320 READ PREZZO 

330 IF R$< >RIF$ THEN 300 

340 NL=NL+1 

350 RIF$INL)=RIF$ 

360 DEF$!NL)=DEF$ 

370 PREZZO!NL)=PREZZO 
380 QT(NL)=QT 
390 : 

400 GOTO 240 

410 REM-STAMPA FATTURA 

420 F'RINT 

430 F'RINT "STABILIMENTO XXX";F'RINT 
440 F'RINT TABI 15) ; "FATTURA DI ;";NOME$ 

450 PRINT TABI 15);IND$ 

460 F'RINT 
470 T=0 

480 FOR L=1 TO NL 
490 ' F'RINT RIF$!L) 

500 ? F'RINT TABI 5) ;DEF$(L) 

510 ! PRINT TABI 23) ;F'REZZO(L) 

520 ? F'RINT T AB 129 ) ;QT(L> 

530 ? F'RINT TABI 33) ;QT !L)*F‘REZZO!L) 

540 :T=T+QTIL)«PREZZO!L) 

550 NEXT L 
560 F'RINT 

570 F'RINT TABI25) ; "TOTALE ; " ; TABI33) ;T 
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Scegliete il vostro menu 

Potete scegliere tra 3 antipasti, 3 primi e 3 contorni. 

Disponete solamente di 12.000 lire. 

Sono calcolate tutte le combinazioni di antipasti, di primi e di contorni, occorre 
definirli in DATA e leggerli in 3 tabelle (come per i prezzi). 


100 REO RISTORANTE 
110 : 

120 DEN=#12000 :REM DENARO DISPONIBILE 

130 REO-PREZZO DI ANTIPASTI ,PRIMI PIATTI E CONTORNI 

140 DATA 1600.2400.2000 


150 DATA 7000,8000,9000 
160 DATA 2400,3000,4000 
170 : 

180 F0R A=1 T0 3 : READ PA(A):NEXT A 

190 F0R P=1 T0 3 ; READ F’P<P):NEXT P 

200 F0R C=1 T0 3 : READ PC(C);NEXT C 

210 : 

220 F0R A=1 T0 3 

230 ;F0R P=1 T0 3 

240 ; FOR C=1 TO 3 

250 ; T=PA(A)+PP(P)+PC(C) 

260 ? IF T>DEN THEN 260 

270 ; PRINT "ANTIPASTI :"; A ;"PRIMI : 

280 : NEXT C 

290 ;NEXT P 

300 NEXT A 


PA( ) 

PP( ) 

pc< ) 

1600 


7000 


2400 

2000 


8000 


9000 

2400 


3000 


4000 


Prezzo Prezzo Prezzo 

antipasti primi contorni 


; P;"CONTORNI t";C;"TOTALE :" ; T 


RUN 

ANTIPASTI 

: 1 

PRIMI 

: 1 

CONTORNI 

: 1 

TOTALE 

11000 

ANTIPASTI 

! 1 

PRIMI 

: 1 

CONTORNI 

. 2 

TOTALE 

11600 

ANTIPASTI 

! 1 

PRIMI 

* ? 

CONTORNI 

: 1 

TOTALE 

12000 

ANTIPASTI 

- *7 

PRIMI 

! 1 

CONTORNI 

: 1 

TOTALE 

11800 

ANTIPASTI 

« 3 

PRIMI 

: 1 

CONTORNI 

: 1 

TOTALE 

11400 

ANTIPASTI 

; 3 

PRIMI 

: 1 

CONTORNI 

. 2 

TOTALE 

12000 
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Tabelle a due dimensioni 

Le tabelle possono essere a più dimensioni (fino a 255). 

Abbiamo un insieme di campi definiti in DATA e li vogliamo stampare. Potremmo 
leggere le DATA e stamparli via via (vedere il capitolo sulle DATA). 

L’uso di una tabella a 2 dimensioni permette di effettuare altre operazioni (come 
ad esempio la selezione). Ogni riga rappresenta il voto di uno studente. 

STUD$( ) 

MONGILARDI 
LODI 
BIANCHI 


VOTO 


6 

8 

6 


7 

6 

9 







Per ottenere la lista degli studenti e dei loro voti nell’ordine decrescente delle me¬ 
die, utilizzeremo una tabella intermedia (PT). 

Questa tabella PT( ) "punta” alla tabella dei voti VOT(,). La selezione è fatta sulla 
tabella ME( ) invertendo gli elementi di PT( ) ogni volta che invertiamo 2 elementi 
di ME( ). 

Senza la tabella PT( ), si dovrebbero invertire i voti della tabella VOT(,), il che sa¬ 
rebbe molto scomodo. 


ME() 


Prima 

della 

selezione 


8 

7.3 

6.6 


POS( ) STUD$ 


1 


MONGILARDI 

— 

2 

LODI 

3 




VOTO 


6 

00 

6 


7 

6 

6 







ME( ) PO.S( ) STD$ 


VOTO 


Dopo 

la selezione 



Le 2 tabelle 
sottoposte 
a selezione 
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Analisi dei voti 


100 REM ANVOT ANALISI DI VOTI 

110 : 

120 DATA MONGILARDI, 6,8,6,99 
130 DATA LODI, 7,6,9,99 
140 DATA BIANCHI, 10,4,10,99 

150 DATA * 

160 REM-LETTURA DATA 

170 Din STUD$(30),dE<30),POS(30) 

180 Din MOT<30,10) 

190 : 

200 FOR E=1 TO 30 

210 ! READ X$:IF X$="*" THEN NE=E-1 :GOTO 300 
220 ;STUD$(E)=X$ 

230 s 

240 !FOR N= 1 TO 10 

250 : READ X: IF X=99 THEN 280 

260 :VOT(E,N)=X 

270 sNEXT N 

280 NEXT E 


290 REO-STAOPA DI STUD$() E DI VOTI,) 

300 FOR E=1 TO NE 
310 : FRINT STUD$(E>; 

320 :FOR N=i TO 10 

707 ? IN VOT(E,N)=0 THEN 360 

340 SPRINT TAB(12+N*3>;VOT(E,N); 

250 NEXT N 
360 SPRINT 
370 NEXT E 

380 REM -CALCOLO DELLE nEDIE IN nEO — 

390 PRINTspRINT"nEDIEs"SPRINT 
400 FOR E=1 TO NE 
410 s TN=0 


420 sFOR N=1 TO 10 


430 s IF VOT(E,N)=0 THEN NV=N-lsGOTO 460 
440 s TV-TV+VOt(E,N) 

450 sNEXT N 
460 s HE(£)=TV/NV 

470 SPRINT "OEDs";STUD$(E);TAB<20);OE(E) 

480 NEXT E 

490 REn===============*==========STAnPA NELL' 

500 FOR 1 = 1 TO 30 ;F'OS( I )=I sNEXT I 

510 REn-TEST 

520 IV=0 

530 FOR 1=1 TO NE-1 

540 sIF ME(I + lK=ttE<I) THEN 570 


ORDINE DELLE NEDIE 


550 5 X=nE ( I ) s NE ( I ) =nE (1 + 1 ) s nE ( 1+1 ) =X 

560 5X=P0S(I):POS(I)=POS(1+1)5P0S(1+1)=XsIV=0 

570 NEXT I 

580 IF IV=1 THEN 520 

590 REn-STAnPA 

600 PRINT SPRINT "LISTA NELL' ORDINE DELLE nEDIE" SPRINT 
610 FOR E=i TO NE 


620 SPRINT STUD$(F'OS(E) ) ; 

630 sFOR N=1 TO 10 

640 s IF VOT(F‘OS(E> ,N) =0 THEN 660 
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( seguito ) 


650 : F'RINT TABI10+3*N) ; VOT (F'OS(E) ,N); 
660 :NEXT N 

670 SPRINT TAB < 26); HE(E) 

680 NEXT E 

READY. 


flONGILARDI 

6 8 

6 


LODI 

7 6 

9 


BIANCHI 

10 4 

10 


MEDIE ; 

MED: MONGILARDI 
MED: LODI 

MED: BIANCHI 

LISTA NELL' ORDINE 

6.6666 

7.3333 

8 

DELLE MEDIE 


BIANCHI 

10 8 

10 

8 

LODI 

7 6 

9 

7.3333 

MONGILARDI 

6 8 

6 

6.6666 
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Elezioni 

Vengono gestiti numerosi seggi. I risultati'per ogni candidato ed ogni seggio ven¬ 
gono collocati in una tabella VX(,) a 2 dimensioni. 



vx...( ) 


Un primo modo (CAND) permette di definire i nomi dei candidati e di visualizzare 
la tabella CND$( ). 


SCELTA ? CAND qg 


NOME 

CANDIDATO ? CF 

PER 

FINE) 

FERRARI-^ 

.NOME 

CANDIDATO ? <F 

PER 

FINE) 

FUSINA^, 

NOME 

CANDIDATO ? (F 

PER 

FINE) 

ROMANO 

NOME 

CANDIDATO ? (F 

PER 

FINE) 



Un secondo modo (VSEG) permette di visualizzare la tabella VX(,) per un seggio 
(1,2,...). Nell’esempio, non viene effettuato il totale parziale durante lo spoglio; bi¬ 
sogna inserire il numero totale dei voti per un seggio. Il vecchio valore può comun¬ 
que essere modificato. 


SCELTA ? SEGy 

SEGGIO ? \-p 

FERRARI ? 10 

FUSINA ? 20lL 

ROMANO ? 8^ 


CND$( ) 
FERRARI 
ROMANO 
FUSINA 


S = 1 

* 


10 




8 




20 





Un terzo modo visualizza i risultati (RISUL): totale dei voti per ogni candidato e 
percentuale. 

Per effettuare il totale per ogni seggio durante lo spoglio, vi sono 2 soluzioni: 

• Con la stessa tabella a 2 dimensioni VX(,), aggiungere via via i voti. 

• Definire la tabella VX con 3 dimensioni e collocarvi tutti gli spogli parziali. Que¬ 
sta soluzione è più "sicura” poiché permette di rintracciare ogni spoglio. 
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CAND$( ) 
FERRARI 
ROMANO 
FUSINA 



SEG 1 SEG 2 


Per ottenere la lista dei risultati nell’ordine dei voti ottenuti da ciascun candidato, 
potremmo creare una tabella TV( ) e selezionarla. 


CND$( ) VX(..) 


TV( ) 


FERRARI 

ROMANO 

FUSINA 



A/ Totale nella tabella TVC) 

600 FOR C=1 T0 NC 

610 ;TV(C)=0 

620 :F0R B=1 T0 5 

630 : TV(C)=TV(C)+VX(C f B> 

640 ?NEXT B 
650 NEXT C 

B/ Test di TVO e CN0$O 
700 10=0 

710 FOR 1 = 1' T0 NC-1 

715 'IF T0(1+1)<=TV<I ) THEN 730 

720 ;X=TV(I):TV(I)=TU(I+1):TM(I+1)=X 

725:X$=CND$(I):CND$(I)=CND$(I+1):CND$(I+1)=X$ 

730 NEXT I 

740 IF IV=1 THEN 700 

C/ Stampa di TUO .e CND$<> 

800 FOR C=1 T0 NC 

810 : FRINT TM(C) r CND$(C) 

820 NEXT C 


60 FERRARI 
44 FUSINA 
27 ROMANO 
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Elezioni 


10 REM EL ELEZIONI 
20 : 

50 DIM CND$(10),VX(10,5) ; REM 10 CANDIDATI/5 SEGGI 

60 REM---SCELTA- 

75 F'RINT CHR$ ( 147 ) 

80 F'RINT! INPUT "VOSTRA SCELTA ( CAND, SEG, RISUL > " ; SC$ 

90 IF SC="CAND" THEN GOSUB 140 
100 IF SC="SEG" THEN GOSUB 240 
110 IF SC="RISUL" THEN GOSUB 3-50 
120 GOTO 80 

130 REM-NOMI DEI CANDIDATI (CAND)——- 

140 F'RINT :C$=" “!INF'UT "NOME CANDIDATO (F PER FINE)";C$ 

150 IF C$="F" OR C$=" " THEN 220 
160 FOR C=1 TO 10 

170 : IF C$=CND$(C) THEN F'RINT ! F'RINT "E 7 GIÀ 7 PRESENTE" : GOTO 140 
180 rIF CND$(C)=" " THEN CND$(C)=C$: NC=C: GOTO 140 
190 NEXT C 

200 F’RINT "TROPPI CANDIDATI":STOP 
220 RETURN 

230 REM-SEGGI- 

240 F'RINT!B=0!INPUT""QUALE SEGGIO (0 PER FINE)";B:IF B=0 THEN RETURN 
250 ! 

.260 FOR C=1 TO NC 

270 : F'RINT CND$(C) ;TAB(10) ; 

280 ! F'RINT VX(C,B) ; TAB ( 15 ) ; 

290 : V = 0: INF'UT"VQTQ (NUMERO 0 0);V:IF V=0 310 
300 ! VX(C,B)=V 
310 NEXT C 
320 GOTO 240 

330 REM-VISUALIZZAZIONE RISULTATI- 

350 T=0 

360 FOR C=1 TO NC 

370 : FOR B=1 TO 5;T=T+VX(C r B)JNEXT B 
380 NEXT C 

390 IF T=0 THEN F'RINT "NESSUN VOTO " : RETURN 
40Ó F'RINT ! FRI NT"RISULT ATI" ! F'RINT 
410 FOR C=1 TO NC 
420 : F'RINT CND$(C>; 

430 !TC=0 

440 !FOR B=1 TO 5 

450 ! TC=TC+VX(C,B) 

460 ! IF VX ( C, B ) <>0 THEN F'RINT TAB(6+B*4> • VX(C,B> j 

470 !NEXT B 

480 ! F'RINT TAB(26> ;TC> 

490 !F‘C=TC/T*100: F'RINT TAB(31 INT(F'C*100+.5)/100 

500 NEXT C 
510 RETURN 

RISULTATI 


FERRARI 

20 

30 

20 

70 

% 49.65 

ROMANO 

8 

12 

7 

27 

% 19.15 

FUSINA 

20 

14 

10 

,44 

X 31.21 










ON A GOTO n. riga 1, n. riga 2, 
ON A GOSUB n. riga 1, n. riga 2, 


• • • 


Collegamento multidirezionale 

Secondo il valore di una variabile A (o di una espressione) 1, 2, 3,... ci si allaccia al¬ 
la riga 1, riga 2, riga 3,... 

Esempio: 

Programmate una videata, ed assegnate ad alcuni caratteri una funzione ben 
definita. 

H Traccia un tratto orizzontale verso destra. 

SHIFT/H Traccia un tratto orizzontale verso sinistra. 

V Traccia un tratto verticale verso il basso. 

SHIFT/V Traccia un tratto verticale verso l’alto. 

Soluzione con la condizione (IF... THEN) 

10 GEIT A$: IF a$=” " GOTO 10 : REM ATTESA CARATTERE DALLA TASTIERA 
20 IF A$="h" GOTO 200 ? REFI DESTRA 

30 IF A$="H" GOTO 300 : REM SINISTRA 

40 IF A$="v" GOTO 400 :REM DESTRA 

50 IF A$="V" GOTO 500 REM SINISTRA 

60 : 

70 : 

80 : 

90 GOTO lOiREfl NESSUNA CONDIZIONE 


Soluzione con ON A GOTO n. riga 1, n. riga 2 , ... 

10 NB=4 : Diti TB(NB) :REM NUMERO DELLE CONDIZIONI 
20 FOR 1=1 T0 NB . 

30 READ TB <I ) :NEXT : REM CARICA LA TABELLA 

40 GET A$ : IF A$=" " GOTO 140: REM ATTENDE UN CARATTERE DALLA TASTIERA 
50 A=ASC(A$) 

60 FOR 1 = 1 T0 NB : IF AOTB(I) THEN NEXT: GOTO 140 
70 A=I:I=NBrNEXT 
80 0N A GOTO 200,300,400,500 
90 DATA 72,200,86,214 
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10 Dichiara la tabella. 

30 Carica i codici ASCII dei tasti nella tabella. 

40 Aspetta che venga battuto un carattere da tastiera. 

50 Trasforma il carattere in codice ASCII. 

60 Cerca la sua posizione nella tabella. Se non gli corrisponde alcun codice ritor¬ 
na alla 40. 

70 "A” prende il valore di "I” (indice della posizione nella tabella) "I” prende il valo¬ 
re finale del ciclo e si chiude il loop. 

80 Direzione secondo A. 

La riga 90 contiene i codici ASCII dei tasti: 

H = 72 — SHIFT/H = 200 
V = 86 — SHIFT/V = 214 
ecc. 



PEEK-POKE 
AND - OR 


Tutte le informazioni vengono collocate in "caselle di memoria” chiamate bytes. 

ATTENZIONE: non confondere "casella di memoria” con "casella variabile”. In ef¬ 
fetti una casella variabile è costituita da più caselle di memoria secondo l’impor¬ 
tanza della variabile in questione. 

Esempio: A$ = "BUONGIORNO” 

B$ = "BUONGIORNO SIGiNORA” 

Schematizziamo il modo in cui vengono collocate queste due variabili in memoria. 



La variabile B$ occupa 7 bytes in più della variabile A$. 

Ogni byte è diviso in 8 parti chiamate "Bit”. Questi bits sono numerati, da destra a 
sinistra, da 0 a 7. 



BYTE 
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Un bit può avere solamente due stati: 0 o 1. Un bit a zero ha valore nullo. Un bit a 1 
ha un valore differente a seconda della sua posizione nel byte. 


128 64 32 16 08 04 02 01 


7 

6 

J _ 

5 

J_ 

4 

3 

J_ 

2 

1 

J - 1 VALORE DEL BIT 

0 Mr- NUMERO DEL BIT 

128 

1_1 

64 

32 

1 _ 

16 

I 

08 

1 

04 

1 

02 

I 

01 V. 

: 1 1 VALORE DEL BIT 

7 

6 

5 

4 

3 

2 

1 

NUMERO DEL BIT 

128 

1_1 

64 

32 

1 

16 

1 

08 

I 

04 

I 

02 

I 1 

01 ^ 

| VALORE DEL BIT 

7 

6 

5 

4 

3 

2 

1 

q ^ NUMERO DEL BIT 

128 

LI 1 

64 

32 

1_i 

16 

1_ 

08 

| 

04 

1 _ 

02 

I 

01 VALORE DEL BIT 

'- 1 NUMERO DEL BIT 


= 1 = 2 T 0 


= 2 = 2 | 1 


= 128 = 2 | 7 


La freccia t, orientata verso l’alto, è il simbolo dell’elevazione a potenza. 
Per codificare il valore 21 in un byte, occorre mettere a 1 i bits: 

— 0 valore 1 

— 2 valore 4 

— 4 valore 16 
TOTALE 21 

128 64 32 16 08 04 02 01 16 + 4 + 1 = 21 

I-1-1^ 1———I 1-1 ^^ VALORE DEL BIT 

76543210 numero del bit 


BYTE 

128 64 32 16 08 04 02 01 

lllllllllllllllll VALORE DEL BIT 
7 6 5 4 3 2 1 o numero del bit 


BYTE 

Il valore massimo di un byte è 255. 


POKE 


L’istruzione POKE sostituisce il valore contenuto in un byte con un nuovo valore. 
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Colloca - 


POKE 214,10 • 


il valore 10 


nel byte 
214 


oppure: A = 214 : B = 10 
POKE A, B 


Esempio: si posizioni il cursore sulla linea 12 (10 + 2). 


chr$(l47) : 

1 _ 1 

POKE 214,10:? 

1 1 

: ?“A” 

| | 

cancella 
lo schermo 

1 

posizione 

cursore 

stampa A all’Inizio 
della riga 12 


PEEK 


L'istruzione PEEK legge un byte senza modificarne il contenuto. 


PRINT PEEK (1024) 



Il byte 1024 rappresenta la prima casella in alto a sinistra dello schermo. 

Il valore derivato da "?PEEK(1024)” rappresenta il codice video del carattere che fi¬ 
gura in quella casella (vedi appendice codici video). 

Ad esempio, 32 rappresenta il codice spazio (blank). 

Il byte 53269 definisce gli stati attivi relativi ai bits a video (confronta il capitolo 
valori relativi dei bytes). 

A ciascun bit è associato uno stato (1 = attivo) (STATO 0 per Bit 0, STATO 1 per 
Bit 1, ecc.) 


Indicatore 

dello stato del bit 7. 


128 


7 


64 


6 


32 16 08 04 

_LI I_1_ 

5 4 3 2 


02 


1 


Indicatore 
dello stato del bit 0 


01 

L T I 


VALORE DEL BIT 
NUMERO DEL BIT 



byte 53269 


• Facendo POKE 53269,17 rendiamo attivi gli stati relativi ai bits 0 e 4. 

• Se il byte 53269 contiene un valore nullo, possiamo commutare successivamente 
gii stati dei bits 0 e 4 facendo: 
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POKE 53269, PEEK (53269)+ 1 (VALORE BIT 0) 
POKE 53269, PEEK (53269)+ 16 (VALORE BIT 4) 

Il byte 53269 contiene ora 17. 

• Ma se aggiungiamo nuovamente 1, il byte 53269 conterrà 18. 


4 3 2 1 0 


53269 



0 

0 

0 

0 

0 


• È lo stato del bit 1 che viene attivato (invece di quello del bit 0). 

• L’impiego dell’addizione aritmetica per portare lo stato di un bit a 1 ha senso so¬ 
lo se lo stato del bit è 0. 

• Ora utilizzeremo l’operazione "OR” ("oppure” logico), che permette di portare dei 
bits a 1 anche se hanno già questo valore. 


OR 

L’istruzione OR effettua un "oppure” bit per bit fra 2 valori binari (espressi in 
decimali). 


A = 14 OR 9. 

\ ___ 

Memorizza in A 


Il risultato è collocato in un byte o in una variabile. 

REGOLA DELL’OPERAZIONE OR 

0 110 
J0_ J_ _0_ J_ 

0 Risultato. 1 Risultato. 1 Risultato. 1 Risultato. 
• Operazione "OR” fra 14 e 9. 


1_1 


1 

1 1 1 

1 1 

I 1 

I 

i 14 

1 _ 1 


1_ 

OR 

1 1 1 

1 

I 

I 1 

1 9 









128 

1 _ 1 

64 

32 

1_ 

16 08 

1_1 1 

04 

1 1 

02 

1 1 

01 

1 1 

1 =15 


76543210 - numero del bit 
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Qui sotto osserviamo in dettaglio l’operazione per i due bits di destra. 


—* 14 I 0 I 
—>9111 


BIT 0 
dei numeri 


1 <— Risultato 


• Supponiamo che il byte contenga 17 (bits attivi 0 e 4) e che vogliamo attivare il 
bit 0 (che lo è già) facendo: 

POKE 53269, PEEK (53269) OR 1 

Non variamo il contenuto del byte 53269, che resta uguale a 17: 


53269 


53269 



17 

1 


-» 17 


Ora disattiviamo il bit 0 sottraendo 1 al byte 53269: 


POKE 53269, PEEKJ53269). - 1 

^17 - 1 =16 


128 64 32 


7 6 5 


16 08 04 02 01 -, 

1 I 0 I 0 I 0 I 0 l ~ VALORE DEL BIT 

4^210 NUMER0 DEL BIT 


byte 


Il bit 0 è disattivato. 

Ma se sottraiamo ancora 1, non otteniamo il risultato cercato: 
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POKE 53269, ^EEK453269) - 1 

X 

16 - 1 = 15 


128 64 32 16 08 04 02 01-^ 

I I I I 111111111 VALORE DEL BIT 

7 6 5 4 3 2 1 0^ NUMER ° ° EL B,T 


= 15 


byte 

Per ottenere il risultato voluto, occorre utilizzare l’istruzione AND. 

AND 

L’istruzione AND effettua un "E” bit per bit fra due valori binari (espressi 
decimali). 

REGOLA DELL’OPERAZIONE AND 

0 110 
_0_ J_ _0_ J_ 

0 Risultato. 1 Risultato. 0 Risultato. 0 Risultato. 

Operazione AND fra 14 e 9. 

I_I_I_ I I 1 I 1 I 1 I I =14 

AND 

1-1_I_I_ 111 I 111 =9 


128 64 32 16 08 04 02 01 

_I_I_ I 111 I I I =8 


Qui sotto analizziamo in dettaglio l’operazione per i bits di destra: 


—» 14 10 1) 

> Bit 0 dei numeri 

- 9 LJJ ) 

0 <— risultato 


Battendo in modo diretto: PRINT 14 AND 9 ^ otterrete 8. 
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• Per disattivare il bit 0 lasciando attivi tutti gli altri, effettueremo un AND fra 
il contenuto di 53269 e 254 (11111110 in forma binaria). Solamente il bit 0 è mes¬ 
so a 0. 


7 

6 

5 

4 

3 

2 

1 

0 

E 

E 

0 

0 

E 

E 

E 

0 



0 

1 

0 

i 

i 

i 

0 


E 

e 

0 

□ 

0 

0 

0 

0 


poke 53269, peek (53269) and 254 


17 

AND 

254 

16 


• Effettuando di nuovo la stessa operazione, il risultato è identico. 


In breve 

• L'istruzione POKE colloca un valore (0-255) in un byte. 

• L’istuzione PEEK legge il valore di un byte. 

• L’istruzione OR effettua un "OPPURE” bit per bit fra 2 valori binari. 

• L’istruzione AND effettua un "E” bit per bit fra 2 valori binari. 







Le stampe 


Presentiamo per sommi capi i metodi di stampa più usati. 

PRINT variabile 


PRINT seguito da una variabile o da una costante ne provoca la stampa seguita da 
un salto di linea e da un ritorno a capo. 

PRINT da solo provoca un salto di linea. 


10 PRINT "INIZIO" 
20 PRINT 
30 PRINT "FINE" 



PRINT variabile ; 

Il ; (punto e virgola) impedisce il salto di linea. 


10 PRINT "INIZIO"; 

20 PRINT "PROSEGUIMENTO E FINE" 


Non si è 
verificato 
il salto di riga 


-Inizio-,proseguimento e fine 


PRINT variabile , 

La , (virgola) permette di stampare i valori inquadrati in modo standard nelle co¬ 
lonne 1, 11, 21,... 
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10 X=10;Y=15:Z=5 
20 F'RINT X,Y,Z 
30 F'RINT X, ,Z 


Col. 1 Col. 11 Col. 21 



PRINT TAB (posizione) 


Posiziona il cursore alla colonna specificata dall’istruzione, permettendo così di 
inquadrare i dati. 


10 INPUT "IL MOSTRO NOME"; NOME* 

20 : 

30 POR A=0 T0 6.28*3 STEF' 6.28/20 
40 X=20+SIN(A)*10 
50 F'RINT TAB(X) ;N0(1E$ 

60 NEXT A 


BIANCHI 

BIANCHI 

BIANCHI 

BIANCHI 

BIANCHI 

BIANCHI 

BIANCHI 

BIANCHI 

BIANCHI 

BIANCHI 

BIANCHI 


Disegno di un triangolo pieno 

r 

t, 

lOlFOR L=1 T0 9 STEP 2 
20 ’F'RINT TAB ( 20-L/2 ) ; 
30 F0R E=1 TO L. 

40 F'RINT 
50 NgXT e: 

60 NEXT L 



RUN 


Sistemi di numerazione 

Per rappresentare il numero 234, potremmo "disegnare” 234 aste. Ma è più sempli¬ 
ce raffigurarlo come: 

4 unità 

3 decine (3 gruppi di 10 aste) 

2 centinaia (2 gruppi di 100 aste) 


li Ili IMI 


2*100 + 3*10 + 4*1 
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10 rappresenta la "base”. Potremmo anche utilizzare una base 8: 

ili i ! 1 I 1 li 

1 -> 234 in sistema decimale 

In generale, un numero N in base B si esprime in questo modo: 

n n--l 10 

N=an*B + an-l*B + . + al*B + a0*9 


3*64 + 5*8 


1101 in base 2 è uguale a: 


3 2 10 

1*2 + 1*2 + 0*2 + 1*2 ->1*8 + 1*4 + 0*2+1 -> 13 


10 REM C0NVD 
20 ; 

30 INPUT “BASE" 5 B 
40 : 

50 INPUT "NUMERO";N 
60 ND=0 
70 ; 

80 POR P=0 TO 6 
90 ;Q==INT(N/10> 

100 :R=N~(Q*10) 

110 : 

120 ? ND = ND+ <B P)*R 
130 ?N=Q 
140 NEXT P 
150 : 

160 PRINT ND 
170 GOTO 50 


RUN BASE ? 2 
NUMERO ? 101 

er 


CONVERSIONE BASE B 


: REM QUOZIENTE 
JREM RESTO (DA' 


-> DECIMALE 


N 



Resto 

della divisione 
da 10 


IL COEFFICIENTE DI GRADO P) 


Conversione decimale in base B 

Esprimiamo un numero N sotto un’altra forma. 

N = an*B" + an—1 * B nl + ... + aO* B° = '(an*B) + an—1)*B + ... + a2)*B + a1) »B + aO / 

Resto 


Quoziente 
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Dividendo N per B, otteniamo un quoziente Q = (an*B) + an — 1)*B +...+ a2)*B 
+ al) ed un resto uguale ad aO. 

Dividendo il quoziente per B, otteniamo un resto uguale ad al. 

Così i resti di divisioni successive per la base B danno i coefficienti aO, al,..., an. 


Esempio 

Convertiamo 13 (decimale) in base 2. 


Ì2 

1 !2 
1 0 


ao 

ai 

a 2 

a 3 


13 

*1 


!2 

6 

0 


!2 

3 

■ 1 


Prima soluzione 

Applichiamo direttamente il metodo seguente. Avendo ottenuto i coefficienti in or¬ 
dine inverso alla visualizzazione, non possiamo stamparli via via che li calcoliamo. 
Li collocheremo allora in AF. 


10 REM CONVB CONVERSIONE DECIMALÈ —> BASE B 
20 ! 

30 INPUT "BASE ";B 
40 : 

50 INPUT "NUMERO ";N 
60 : 

70 VS=0;D=1 : REM VISUALIZZAZIONE RISULTATO 

80 : 

90 Q=INT(N/B) : REM QUOZIENTE 

100 R=N-(Q*EU : REM RESTO 

110 : 

120 VS=R*D+VS 
130 D=D*10 
140 : 

150 N=Q 

160 IF Q >0 THEN 90 
170 . ! 

180 PRINT VS 
190 GOTO 50 



> 



JJ 0 



! 

j] 


RUN 

BASE ? 2 
NUMERO ? 5 
101 
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Seconda soluzione 

Cominciamo a calcolare i coefficienti di grado maggiore. Manualmente questo me¬ 
todo sarebbe più lungo. 


30 INPUT "BASE "jB 
40 ! 

50 INPUT "NUMERO ";N 
60 ! 

70 FOR P=6 TO 0 STEP-1 
80 : X=B-TP 

90 :Q=INT(<N/X)+.001> 
100 :N=N-X*Q 
110 : F'RINT Q; 

120 NEXT P 


RUN 

BASE ? 2 
NUMERO ? 5 
0 0 0 0 1 0 1 





Indirizzamento diretto video 


L’indirizzamento diretto permette di visualizzare un messaggio in un punto preci¬ 
so dello schermo (senza modificarne il resto). 

Il Commodore 64 non possiede istruzioni a questo scopo. Utilizzeremo dunque il 
puntatore di linea situato nel byte di memoria 214. 

POKE 214, n. riga: PRINT^ posiziona il cursore sulla riga specificata + 2. 
"PRINT” dopo POKE è obbligatorio. 

Esempio 

Posizionamento sulla riga 10 (8 + 2). 



Scritta luminosa 

Questo programma fa scorrere un messaggio sullo schermo. La velocità di scorri¬ 
mento dipende dalla temporizzazione scelta. 




82 II Commodore 64 per tutti 


L$ 


1 E 1 DI.. PS | I | 


IO FRI NT CHR*(147) 

20 L$=“EDIZIONI ERSI..." 

30 L=LEN (L$) 

40 F'OKE 214,11: F'R I NT 
50 F'RINT .TAB(?)L$ 

60 WAIT 653,1 OR 2 
70 IF F'EEK (653) =2 THEN END 
80 L$=RIGHT '$ < L*, 1 > +LEFT$ (L$, 1-1 ) 
90 GOTO 40 

READY. 



L’istruzione "WAIT memoria, valore" provoca una pausa nel programma. Quest’ul¬ 
timo riprende quando la condizione posta è soddisfatta. 

• Il byte di memoria 653 contiene lo stato del tasto SHIFT/O Control. 

0 = normale 

1 = SHIFT 

2 = 0 

4 = Control 

Premendo SHIFT, la scritta si sposta; premendo , si arresta lo svolgimento del 
programma. 




Immissione di un carattere 

da tastiera 


GET carattere 

Legge in permanenza un carattere da tastiera. Se non è stato battuto alcun caratte¬ 
re, la stringa letta (A$ nell’esempio) è vuota. Il carattere battuto da tastiera è visua¬ 
lizzato solo se il programma lo ha previsto (e non in modo "locale” da tastiera, co¬ 
me è nel caso di INPUT). 


10 PRINT CHR# (147) : REM ABBLENCA IL VIDEO 
20 GET A*sIF A*=“ "GOTO 20:REM LOOP DI ATTESA 
30 PRINT A#;:REM STAMPA IL CARATTERE BATTUTO 


40 GOTO 20 



t caratteri vengono 
isualizzati dall'istruzione 31 


Esempio: acquisizione di numeri o di lettere (secondo l’opzione scelta). 

I caratteri scelti sono memorizzati in una stringa B$. Il tasto "INST/DEL” abblenca 
la stringa B$ e ricomincia l’immissione. 

Quando l’operatore preme "RETURN” (codice 13), il programma si arresta. 

II valore numerico è collocato in A (sono accettati i decimali). 

La stringa è collocata in B$ (sono accettati gli spazi). 


100 PRINT CHRTQ47) 

110 INPUT "N-NUMERICO A-ALFABETICO";S$ 

120 GOSUB 9060 

130 PRINT B$,:IF S$="N"THEN PRINTA 
140 PRINT : END 

9000 REM ****************************************************** 
9010 : 

9020 REM ***** SOTTO PROGRAMMA DI INSERIMENTO DA TASTIERA ***** 


(segue) 
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(seguito) 


9030 s 

9040 REM ****************************************************** 

9050 ! 

9060 IF S4="N"THEN MINI=48:MAX 1=57;DIV=46:GOTO 9090:REM VAL.STR.NUMERICA 
9070 IF S4="A"THEN MINI=65:MAX 1=90:DIV=32:GOTO 9090:REM VAL.STR.ALFABETICA 
9OSO PRINT "ERRORE":END 

9090 B4="? ": GOTO 9170:REM * AZZERAMENTO STRINGA 

9100 A4="":GET A*:IF A4=""G0T0 9100:REM * ATTESA TASTIERA 

9110 IF ASC (A4) =13 GOTO 9 ISO .-REM TASTO RETURN 

9130 IF ASC (A4) =DI V GOTO 9160: REM SPAZIO 0 PUNTO 

9140 IF ASC(A*)=20 GOTO 9210:REM TASTO DELETE 

9140 IF ASC(A*) < MINI GOTO 9100 

9150 IF ASC(Ai) > MAXI GOTO 9100 

9160 B4=B4+A4:REM CONCATENAZIONE DELLE STRINGHE 

9170 P0KE214,10:PRINT:PRINT B4:G0T0 9100:REM VISUALIZZA STRINGA 

9180 B4=MID4(B4,3):IF S4="A" THEN RETURN;REM SE STRINGA ALFABETICA RITORNA 

9190 A=VAL(B4) 

9200 IF MID4(STR4(A),2>=B4 THEN RETURNìREM CONTROLLA IL VALORE NUMERICO 
9210 A4=“ ":F0RI = 1 Tg LEN<B4):A4=A4+" " : NEXT: REM SE ERRORE ABBLENCA 
9220 POKE 214,10:PRINT:PRINT A4:GOTO 9090:REM RICOMINCIA 

READY. 


PEEK (197) 


Il byte di memoria 197 contiene il codice relativo alla tastiera dell’ultimo tasto bat¬ 
tuto. Il codice rimane il medesimo qualunque sia la posizione della tastiera 
(SHIFT, , "reverse image”, Minuscolo). 

Il seguente esempio mostra le diverse combinazioni di codici di un tasto (ASCII, vi¬ 
deo, tastiera). 

Introdotto in un programma, il comando PEEK (197) permette di definire con esat¬ 
tezza il tasto premuto. 


Esempio 


no 

120 

130 

140 

150 

160 

170 

180 

190 

195 

196 


PRINT CHR4(147); 

A=0 

B=0 : C=0 : T=PEEK ( 197):PRI NT :A=A+40 
GET A4: TF A4 = M " GOTO 140 
IF PEEK(197)< >T GOTO 130 
IF B=3 THEN C=1 
IF COO THEN PRINT CHR4 ( 18) ; A4; CHR4 ( 146> ; : GOTO 190 
PRINT A4; 

PRINT ASC(A4),PEEK(1024+A),T 

A=A+40:B=B+1 

GOTO 140 
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A 

A 


Normal 

R 65 

1 

10 ' 


SHIFT 

* 193 

65 

10 , 


c- 

r 176 

112 

10 ( 

, Codice tastiera 


■gl 65 

129 

10 


Normal 

;a 133 

193 

10 ' 

^ lettera A 

SHIFT 

li 176 

240 

10 ! 


o 

32 


60 

l 


160 

96 

60 

i Codice tastiera 


160 

96 

60 l 

[ barra spaziatrice 


■ 32 

169 

60 ( 

1 


■ 160 

224 

60 

1 


■ 160 

224 

60 

/ 


B 66 

2 

28 i 



1 194 

66 

28 J 



*. 191 

127 

.28 f 

Codice tastiera 


isi 66 

130 

23 i 

lettera B 


Il 194 

194 

28 ] 



-r.* 191 

255 




/ 

\ 


attere 

Codice ASCII 

Codice schermo 

Codice tastiera 


I numeri aleatori 


I numeri aleatori sono utilizzati essenzialmente per i programmi di giochi od 
educativi. 

RND (X) per X > 0 


Fornisce un numero a caso compreso tra 0 e 1 (1 escluso). 


J 10 FRINT RND(l) 
V20 GOTO 10 
RUN 


.0365292135 
.12817214? 

.504270478 


BREAK IN 1C 


> / 


Premere 
RUN/STOP 
per fermare 
il programma 


RUM 

.675061268 
.784099338 
.155153367 


Dopo un secondo 
< RUN > la sequenza 
è diversa 


Per ottenere numeri interi fra 0 e 9, per esempio, occorre: 

• Moltiplicare il numero ottenuto per 10. 

6 Prendere la parte intera del risultato, con la funzione INT(X). 
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10 X=RND(1) 

420 Y=X*10 
30 Z=INT(Y) 

40 PRINT X;TAB(12);Y;TAB(24) 
50 GOTO 10 
READY. 

RUN 

.803157845 
. 562966738 


4 

RND (1) 


Dà la parte 
intera di y 

(PRINT INT(2.12)-2) 


8.03157346 8 

5.62966738 5 

* V 

RND (1)* 10 INT (RND (1) * 10) 


Per ottenere un numero fra 1 e 10, basta aggiungere 1. 


10 FOR N=1 TO 3 

20 SPRINT INT(RND(1)*10)+1 

30 NEXT N 

READY. 

RUN 

9 

10 


RND (X) per < 0 

X negativo inizializza una serie aleatoria che dipende dal valore di X. Questa serie 
è sempre la stessa per un valore di X. 


10 X=RND<-2> 

30 FOR 1=1 TO 3 
40 SPRINT RND(1); 
50 NEXT I 


RUN 

.865554613 
READY. 

RUN 

.865554613 


.846128798 

.84612879B 


.981100113 

.981100118 



Senza 10 X = RND (—2), la serie aleatoria dopo il secondo RUN sarebbe stata di¬ 
versa da quella ottenuta dopo il primo RUN. 
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Divisioni 

Questo programma sceglie a caso 2 numeri, li visualizza, attende in risposta il loro 
quoziente, e verifica l’esattezza del risultato. 

Il livello di difficoltà è scelto dall’inizio. 


10 REM DIV DIVISIONI 
20 : 

30 INPUT "DIVIDENDO MASSIMO (ESs1000) ";DV 
40 : 

50 X=INT(RND(1)*DV)+1 
60 Y=INT(RND(1)*DV/10)+1 
70 : 

80 PRINT: FRINT "QUAL'E ' IL QUOZIENTE DI "; X ;"PER";Y 
90 INPUT "RISPOSTA ";RP 

100 IF INT(X/Y)=RP THEN PRINT:PRINT "O.K. ": GOTO 50 
110 : 

120 PRINT:PRINT #IL QUOZIENTE DI "; X ;"PER";Y;"E'";INT(X/Y) 
130 GOTO 50 


RUN 

DIVIDENDO MASSIMO (ES:1000) ? 50 

QUAt_ ' E ' IL QUOZIENTE DI 19 PER 4 
RISPOSTA ? ^ 

O.K. 

QUAL'E' IL QUOZIENTE DI 47 PER 4 
RISPOSTA ? 11 p 



Colori 


Colore di fondo e colore di contorno 

• Il colore di fondo dello schermo è attribuito da: POKE 53281, colore di fondo. 

• Il colore di contorno dello schermo è attribuito da: POKE 53280, colore di 
contorno. 

Esempio 

Battendo POKE 53281,1 lo sfondo dello schermo diventa bianco. 

Colori differenti 

0 NERO 

1 BIANCO 

2 ROSSO 

3 TURCHESE 

4 PORPORA 

5 VERDE 

6 BLU 

7 GIALLO 

8 ARANCIONE 

9 MARRONE 

10 ROSSO CHIARO 

11 GRIGIO 1 

12 GRIGIO 2 

13 VERDE CHIARO 

14 BLU CHIARO 

15 GRIGIO 3 

Il seguente programma visualizza in sequenza tutti i colori dello sfondo. 

10 REM COLORI DI SFONDO 
20 : 

30 FOR C=0 TO 15 
40 :POKE 53281,C 
50 : FOR TF'=1 T0 1000: NEXT TP 
60 NEXT C 
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Colori di scrittura 


Il colore della scrittura è attribuito in due modi: 

• Attraverso i tasti CNTL 1, 2,... 7, 8 e 1, 2,... 8. 



Esempio: PRINT "k TURCHESE” 


Avete premuto CNTL 
e 4 simultaneamente 


Provoca la visualizzazione del messaggio "TURCHESE”. 
• Attraverso PRINT CHR$ (codice colore) 

Esempio: PRINT CHR$(159); "TURCHESE” 

Tabella dei colori 


1 

CTRL1 

NERO 

CHR$ (144) 

il 

CTRL 2 

BIANCO 

CHR$ (5) 

n 

CTRL 3 

ROSSO 

CHR$ (28) 

£ 

CTRL 4 

TURCHESE 

CHR$ (159) 

E 

CTRL 5 

PORPORA 

CHR$ (156) 

0 

CTRL 6 

VERDE 

CHR$ (30) 

s 

CTRL 7 

BLU 

CHR$ (31) 

HI 

CTRL 8 

GIALLO 

CHR$ (158) 

CI 

= 1 

ARANCIO 

CHR$ (129) 

MS 

83 

= 2 

MARRONE 

CHR$ (149) 

= 3 

ROSSO CHIARO 

CHR$ (150) 

LI 

= 4 

GRIGIO 1 

CHR$ (151) 

□ 

= 5 

GRIGIO 2 

CHR$ (152) 

RI 

= 6 

VERDE CHIARO 

CHR$ (153) 

□ 

■■ 

= 7 

BLU CHIARO 

CHR$ (154) 

IBM 

= 8 

GRIGIO 3 

CHR$ (155) 


Nel seguente esempio, facciamo variare il colore della scrittura utilizzando prima 
la funzione CHR$(colore), poi i tasti CNTL e : 
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5 REM COLORI 

6 : 

10 POKE 53281,1 : REM SFONDO BIANCO 

20 X*=CHR*(30 > + "VERDE"+CHR*(156)+"OIOLETT0"+CHR*(159)+"TURCHESE" 
30 : 

50 PRINT X$ 

60 : 

70 Y*="«VERDEi«VIOLETTO*TURCHESE" 

BO PRINT Y$ 


RUN 

VERDEVIOLETTOTURCHESE 
VERDEVIOLETTOTURCHESE 


100 REM CL COLORI SCRITTURA 
110 : 

120 POKE 53281,1 : REM SFONDO BIANCO 

130 FOR N=1 TO 16 
140 : READ COLORE 

150 :PRINT CHR*(COLORE);"COLORE:COLORE 
160 NEXT N 

ISO REM-CODICI COLORI 

190 DATA 144,5,28,159,156,30,31,158 
200 DATA 129,149,150,151,152,153,154,155 



Indirizzamento grafico 
dello schermo 
(bassa risoluzione) 


Per visualizzare a video un carattere di coordinate X,Y occorre fare: 

POKE 1024 + Y*40 + X, codice carattere 
POKE 55296 + Y*40 + X, colore 



POKE 55296 + Y*40 + X, colore 
POKE 1024 + Y*40 + X, codice carattere 


Esempio 


100 PRINT CHR*(147) 

110 : 

120 X=10:Y=10 

130 POKE 1024+Y*40+X,102 

140 POKE 55296+Y*40+X,1 


: REM' ABBLENCAMENTO SCHERMO 

-■REM 102=C0DICE DEL QUADRATO 
: REM 1=BIANC0 
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Mattone 

Simuliamo la caduta di un mattone partendo dall’alto dello schermo; il mattone è 
via via disegnato e cancellato. 


10 REM MATTONE 
20 : 

30 F'RINT CHR^ (147) 

35 Y=20 

40 FOR X=5 TO 20 
50 : F'OKE 1024+X+Y*40,102 
60 : F'OKE 55296+X+Y*40,4 
70 NEXT X 

80 REM- 

90 X=10 

100 FOR Y=1 TO 19 
105 : F'OKE 1024+X+(Y-l>*40,32 
110 : F'OKE 1024+X+Y*40,102 
115 : F'OKE 55296+X+Y*40,1 
117 : FOR TF'= 1 TO 20: NEXT TP 
150 NEXT Y 


: REM ABBLENCAMENTO SCHERMO 

: REM 102:CODICE CARATTERE 
: REM CODICE COLORE 

-CADUTA MATTONE 

: REM ABBLENCAMENTO 
: REM NUOVA POSIZIONE 

: REM TEMPORIZZAZIONE 
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Cielo stellato multicolore 


10 REM CIEL 

100 REM CIELO STELLATO MULTICOLORE 
110 : 

120 FRINT CHR$<147) 

130 F'OKE 53281,1 : REM SFONDO BIANCO 

140 FOR E=1 TO 50 

150 ; X=RNB<1)*40 

160 :V=RNIia>*24 

170 :C=RNDC1>*15 

180 : POKE 1024+V*40+X, 102 '• REM 102: CODICI pel QUADRATO 
190 : POKE 55236+V*40+X,C : REM COLORE 

200 HEXT E 

210 REM-COLORE DI FONDO 

220 : 

230 FOR TP=1 TO 3000:NEXT TP 
240 C=RHD<115 : POKE 53281,C 
250 GOTO 230 
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La palla che rimbalza 

Questo programma fa rimbalzare una palla fra due muri. 


100 REM PORI PfiLLFl RIMBALZANTE 
1-10 : 

120 PRIMI CHR$<147> : REM CANCELLAZIONE VIDEO 

130 POKE 53281,1 : REM COLORE DI FONDO 

140 REM-CONTORNO 

150 Xl=2 : X2=38 
160 FOR V=2 TO 10 

170 :POKE 1024+V#40+X1,182■POKE 1024+V*40+X2,102 
180 : POKE 55296+V#40+X 1,2'- POKE 55296+V#40+X2, 2 
190 HEXT V 

200 REM- 

210 X=5 ; V=5 : VELOCI 

220 XA=X : VA=V : REM POSIZIONE PRECEDENTE 

238 '• 

240 X=X+VELQ : IF XCXl+l OR X=>X2 THEH 310 
250 : 

268 F'OKE 1024+VA*40+XA,32 : REM CANCELLAZIONE 

270 F'OKE 1024+V#40+X, 81 : POKE 55296+Y*40+X,2 

280 XA=X : VA=V 

290 GOTO 240 

300 : 

310 VELO=-VELO 
320 GOTO 240 


2 38 
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Questo fa rimbalzare la palla fra quattro muri. 


100 REM BILIARDO 

110 ^ 

120 ARINT CHR$<14?):P0KE 53281,1 
130 XB=2 : XH=38 
140 YB=2 : VH=23 

150 REM-QUADRO 

160 FOR X=XB TO XH 

170 : F'OKE 1024+VB*40+X, 102 : F'OKE 1024+YH#40+X, 102 
180 : F'OKE 55296+VB*40+X,2:ROKE 55296+VH*40+X,2 
190 NEXT X 
200 FOR V=VB TO VH 

210 ^ F'OKE 1024+V*40+XB102 : F'OKE 1024+V*40+XH,102 
220 ' F'OKE 55296+V*40+XB, 2 : POKE 55296+V*40+XH, 2 
230 NEXT V 

240 REM- 

250 XP=XB+1NT (. RND(1>#6>+l:VP=YB+INT<RND<1>*6>+l 
260 VX=l:VV=l 
270 : 

280 IF NF'CXB+l OR XP=>XH THEN VX=-VX-GOTO 340 
298 IF VPCYB+l OR VF'=>YH THEN VY=-VY : GOTO 340 
300 ■ 

310 POKE 1024+VF'*40+XF' ,81: POKE 55296+VP*40+XP, 4 

320 FOR TP=1 TO 20 : NEXT TP 

330 POKE 1024+VF':+40+XP,32 

340 XP=XP+VX:VP=VP+VV 

350 GOTO 280 

READY. 
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Tappezzeria 


100 

REFI 

TAPPEZZERIA 



110 

: 





12 0 

F'RI 

NT 

CHRf(147)?P0KE 53281,1 



130 

XB- 

n ; 

XH=38fYB=25YH=23 

: REFI 

QUADRO 

140 

REFÌ 

-- 

--- 



150 

XP= 

ET T 

YP=Ó 

: REFI 

PUNTO DI PARTENZA 

160 

ox= 

ì : 

MY--1 



170 

CL= 

3 


i REFI 

COLORE 

130 

: 






190 IF XF'<XB+1 OR XP=>XH THEN VX=-VX:CL=RND(1> + 10+3: GOTO 230 
200 IF YP<YB+1 OR YF->YH THEN VY=-VY;G0T0 230 
210 : 

220 P0KE 1024+YP*40+YP,81 sF'OKE 55296+YP*40,CL 
230 XF‘=XF'+VX ' YF'=YF'+VY 
240 GOTO 190 
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Mucchio di cubi 


100 REM MUCU MUCCHIO DI CUBI 
110 : 

120 REM I CUBI CADONO DALL''ALTO DEL VIDEO 

130 REM RIMBALZANO E FORMANO UN MUCCHIO MULTICOLORE 

140 : 

150 PRINT CHR$<147>=POKE 53281,1 
160 PRINT CHR$<155) 

170 REM-DISEGNO DELLA BASE 

180 FOR X=1 TO 38 

190 : POME 1024+20*40+X,102 : POME 55296+20*4@+X.2 
2S0 NEXT X 

210 REM-CADUTA DEI CUBI 

220 X=20 : V= 1 ■ C~I NT C RHD ■: 1 ) *8 > +2 
230 : 

240 D=INT(RNDCi>*2>:IF D=0 THEN D=-l : REM DESTRA 0 SINISTRA ? 

250 : 

260 IF PEEKX 1024+V*40+X>O32 THEN 300 
270 F'OKE 1024+ < V-1 > *40+X, 32 

280 F'OKE 1024+V*4@+X, 81 : F'OKE 55296+V*4@+X, C : V=V+1 : GOTO 260 
290 : 

800 IF PEEK< 1024+V*40+X+DK>32 THEN 220 

310 F'OKE 1 @24+ '1V-1 ) *4@+X, 32 : X=X+D 

320 F'OKE 1024+V*40+X, 81 : F'OKE 5529£+V*40+X•C 

330 FOR TP=1 TO 10:NEXT TP 

340 V=V+1 

350 IF V>24 THEN 220 
368 GOTO 260 


Cubi multicolori 








Indirizzamento grafico dello schermo 99 


Meteoriti 


100 REM METEORITI 
110 : 

120 REM UN DISCO SI SPOSTA ATTRAVERSO DELLE METEORITI 
130 REM UTILIZZARE 'A' E 'S' PER SPOSTARSI 
140 : 

150 XV-15 :YY=2 ? AX=XV:AY=YV 

160 PRINT CHR$(147)JPOKE 53281,1 : REM SFONDO BIANCO 

170 PRINT CHR$(154) :REM SCRITTURA BLU 

180 REM.— 

190 PRINT?PRINT:PRINT:PRINT 
200 FOR L=1 TO 10000 

210 :X=RND<1)*18+1 :PRINT SPC(X);"X";TAB(18): 

215 :X-~RND(1)*18+1 :PRINT SPC(X)j“X" 

220 :IF PEEK(1024+YV*40+XV)024 THEN 270 : REM TEST COLLISIONE 

230 :POKE 214,21:PRINT:PRINT "SCORE!";L; 

240 :FOR TP=1 TO 3000:NEXT TP 
250 ;GOTO 150 
260 : 

270 :POKE 1024+<AY-1)*40+AX,32 : REM CANCELLAZIONE 

280 :POKE 1024+YV*40+XV r 81 :POKE 55296+YV*40+XV,2 
290 :AX=XV: AY=YV 
300 : 

310 :C=PEEK(197 > : REM TEST TASTIERA 

320 :IF C=64 THEN 350 

330 :IF C=10 THEN IF XV>2 THEN XV=XV-1 
340 :IF C=13 THEN IF XVC36 THEN XV=XV+1 
350 NEXT L 
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Tiro al piattello 


Ecco un programma di tiro. Il bersaglio è fisso ed il tiro è mobile (CHAR per 
esempio). 

L’angolo di tiro è di 45 gradi; potrebbe essere cambiato modificando la velocità 
VE. 



100 REM TIPI TIRO AL PIATTELLO 
110 : 

120 INF’UT "LI VELLO < 1,2,3,.. ) " ; HV 
130 : 

140 FRINT CHR$(147>:POKE 53281,3 
150 DP=0- 

160 XC=INT <RND(1>*5> +30 :VC=5 

170 POKE 1@24+VC*4@+XC,102 : POKE 55296+VC#40+XC,2 

180 VT=-1 : REM VELOCITA-' DI TIRO 

190 XT=1 : VT=10+NV : REM COORDINATE DEL. TIRO 

200 : 

210 POKE 1024+A't'*40+AX, 32 : REM CANCELLA LA POSIZIONE PRECEDENTE 

220 POKE 1024+VT#40+XT,102 ; POKE 55296+VT*40+XT,2 

230 AX=XT'AV=VT 

240 IF VT-CVC THEN GOTO 350 

250 IF XT>37 THEN GOTO 350 

260 IF XT=XC AND VC=VT THEN POKE 214,10 : FRINT : PRINT "COLPITO" : GOTO 370 
270 : 

280 GET X* : IF XK>"" THEN DP=1 'REM PARTENZA PER IL TIRO 
290 IF DP=0 THEN 330 
300 : 

310 VT-VT+VT 
320 : 

330 XT=XT+1 : GOTO 210 
340 : 

350 POKE 214,0 : PRINT=PRINT "MANCATO”1 
360 : 

370 FOR TP=1 TO 3000 = NFXT TP : GOTO 140 
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Teleschermo 

Principio: battendo i tasti Q,W,A,S spostate un "punto” che lascia una "traccia” al 
suo passaggio, il che vi permette di disegnare "manualmente”. 

Se premete "L”, lo spostamento si effettua senza lasciare traccia, permettendo così 
di disegnare una figura in più parti. "E” permette di cancellare dei punti 
illuminati. 

Migliorie possibili: registrazione del disegno in una tabella per duplicazione in 
scala. 



100. REM TELESCHERMO 
110 : 

120 REM 3 MODI' DISEGNO/CANCELLAZIONE,■•■'NEUTRO 
130 : 

140 FRINT CHR$C147Ì : REM CANCELLAZIONE SCHERMO 

150 POKE 214,2E PRINT : PRINT "T : TOOL I ERE/ M : METTERE/ C : CANCELLARE" ; 
160 POKE 214, 22 : PR I NT '• PR I NT "QWAS PER SPOSTARSI"; 

170 X=10:V=10 
188 : 

198 REM- LAMPEGGIAMENTO CURSORE 

200 GET C* : J.F C$0"" THEN 250 

218 PURE 1 024+'t'#48+X, 182 : POKE 55298+’t ! $40+N, 1 

220 POKE 1024+V*40+X,32 

230 GOTO 180 

240 : 


58 

IF 

L=1 THEN IF 

T=1 THEN POKE 

1024+' 

r'*48+: 

102 

60 

70 

80 

IF 

L=0 THEN POKE 1024+V*40+X, 

102 



IF 

C$= l! Q " 

THEN 

IF X>1 THEN X= 

X-l 

: REM 

SINISTRA 

30 

IF 

C$="W" 

THEN 

IF X<39 THEN X 

=X+1 

: REM 

DESTRA 

00 

IF 

C*="fl” 

THEN 

IF V<22 THEN V 

=V+1 

: REM 

BASSO 

10 

20 

30 

IF 

C$="S" 

THEN 

IF V>2 THEN V= 

V-l 

: REM 

ALTO 

IF 

C$="T" 

THEN 

L=1 




40 

IF 

C$="M" 

THEN 

L=8 




50 

IF 

C$="C" 

THEN 

L=2 





/'! 60 ■ 

37S T=@: IP PEEK< 1 W24+V*40+'X>=102 THEN T==i 
380 GOTO 280 





Grafica ad alta risoluzione 


Lo schermo è diviso in 320*200 = 64.000 punti. 

In versione base (senza "TOOL”), la programmazione della grafica ad alta risoluzio¬ 
ne è fastidiosa. 



• Occorre posizionare il commutatore grafico a i (bit 5 del byte 53265): 

Si fa POKE 53265, PEEK (53265) OR 32 
La commutazione in senso contrario si compie con: 

POKE 53265, PEEK (53265) AND 223 



5 4 

3 

2 

1 

0 


5 4 

3 

2 

1 

0 

53265 


□ 

□ 

□ 

G 

\ 53265 

_L_L 

□ 

□ 

□ 

□ 


AND 


OR 


EF 

0 

0 

0 

0 


□ 

□ 

1 fol 1 

0 

□ 

0 

0 


32' 


53265 


1 

Et 


53265 


ET 
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• La bit-map (mappa grafica bit) deve essere rimessa a zero (8000 bytes). 

Questa operazione è molto lunga da eseguire in BASIC. 

Il seguente programma (disegno di rette) utilizza una routine in linguaggio 
macchina. 

« Posizioniamo a 1 il bit del punto da accendere. 

La bit-map grafica è così organizzata: 



Il calcolo del n. di bytes si compie utilizzando variabili intermedie: L, C e LG. 

La posizione del bit all’interno del byte si ottiene con: BIT = X AND 7. 

Ma essendo i bits sistemati da sinistra a destra, occorre fare: BIT = 7 — (X AND 7) 

C = INT(X/8) 

L = INT(Y/8) 

LG = Y AND 7 

OCT = AGRA + L* 320 + 8*C + LG 
BIT = 7 — (X AND 7) 

Modificando un bit, non bisogna alterare gli altri del byte. Si effettua un "OPPU¬ 
RE” fra il vecchio contenuto e il bit da modificare: 

POKE OCT, PEEK (OCT) OR (2TP). 

In realtà, per economizzare il tempo di calcolo di 2TP, abbiamo calcolato le poten¬ 
ze di 2 in una tabella P( ). 

Nota: in fase di messa a punto, fare GOTO 370 per fare apparire il messaggio di er¬ 
rore (che non viene visualizzato in modo grafico). 
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Disegno di cerchi o ellissi 

Un cerchio può essere tracciato punto per punto oppure per segmenti di rette. Na¬ 
turalmente, viene tracciato molto più lentamente da un'istruzione BASIC. 
Calcoliamo le coordinate X e Y di un cerchio di raggio R con: 

X = R*COS (ANG) 

Y = R*SIN (ANG) 


Facendo variare ANG da 0 a 6.28 radianti. 
Per una ellisse, X ed Y sono dati da: 



100 REM DCER DISEGNO DI UN"ELLISSE 
110 : 

120 PRINT CHR*<147> : REM CANCELLAZIONE VIDEO 

130 AGRA=8192 : PQKE 53272,PEEKC53272 > OR 8 

140 POKE 53265,PEEK<53265> OR 32 : REM COMMUTAZIONE GRAFICO 

150 FOR laAGRA T0 AGRA+7999=POKE 1,0 : NEXT I : REM CORRENTE MAPPA-BIT GRAFICA 

160 FOR 1=1024 TO 1024+999 : POKE I,3 : NEXT I : REM COLORE VIDEO 

170 : 

180 FOR 1=8 TO 7 : PCI)=2tI : NEXT I : REM POTENZA 2 

190 REM-DISEGNO DI UN "ELLISSE CO DI UN CERCHIO) 

200 X0=100:V0=100 : REM CENTRO 

210 LI=88 : HI=50 •REM LUNGHEZZA/ALTEZZA 

220 FOR ANG=0 TO 6,29 STEP 6,28/40 

230 :X=X0+<L1/2 > #C0S<ANO) 

240 :V=V0+CH1/2)#SINC ANG> 

250 : GOSUE 300 
260 NEXT ANG 
278 GOTO 360 

280 REM-ROUTINE DI DISEGNO DI UN PUNTO 

290 REM INGRESSI:X,V 

300 C=INT<X/8 > : L=INT C V/8> : LG=V AND 7 

310 OCT=AGRA+L*320+8#C+LG 

320 BIT=7-CX AND 7) 

330 POKE OCT,PEEKCOCT) OR PCBIT) 

340 RETURN 

350 REM-RIPRISTINO 

360 GET X*:IF X*="" THEN 360 
370 POKE 53272,PEEKC53272) AND 247 
380 POKE 53265,PEEKC53265) AND 223 
390 END 
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Disegno di curve sullo SCHERMO 

Ecco un programma che disegna la curva con equazione Y = f(X). 

Cerchiamo il massimo ed il minimo di Y: Y1 e Y2 e calcoliamo le scale per X e Y, 
in modo da sfruttare al meglio la dimensione dello schermo. 


100 REM IiCURV HI SEGUO DI CURVE AUTOMATICHE SUL VIDEO 

110 ■ 

120 LVID-140 : HVID=1@0 : REM DIMENSIONI SCHERMO <LUNGHEZZA 

130 INPUT "LIMITE 1 "IBI .-'ALTEZZAt 

140 INPUT "LIMITE 2 "B2 ' 

150 INPUT "INCREMENTO ";IHC 
160 ^ 

170 FRINT CHR$(147) 

180 AGRA=8192 : POKE 53272,PEÈK<53272) OR A 
196 POKE 53265,PEEK<53265) OR 32 
200 FOR I=AGRA T0 AGRR+7999 : POKE I,0 : NEXT T 

210 FOR 1=1024 T0 1024+999 : POKE I,3 : HENT I 

220 FOR 1 = 1024 T0 1024+999 :POKE 1.3:NENT I 

238 FOR 1=9 TO 7 : P<I)=2tl : NEXT I 

240 REM-RICERCA MI N/MAN 

250 X=B1 :GOSUB 578 : V1=Y:V2=V 
260 FOR X=B1 TO E2 STEP INC 
270 :GOSUB 570 
280 :IF Y<V1 THEH V1=V 


290 1 IF V>V2 THEH ¥2=V 
300 NEXT X 

310 F’X=LV IDX < B2-B1 ) : REM SCALA X 

320 PV=HVIDX <V2-V1) ; REM SCALA V 

348 IF B2<0 OR B1>0 THEH 380 
350 SX=ABS<BÌ)*PX 

360 FOR SV=0 TO HVID:GOSUB 500:NEXT SV 

380 IF V2<8 OR V1>0 THEH 420 
390 SV=HVID-flBS<V1)*PV 
400 FOR SX=0 TO LVID:GOSUB 500 :NEXT SX 

410 REM.... CURVA 

420 FOR X=B1 TO B2 STEP INC 
430 : GOSUB 570 
440 :SX*<X-B1)*PX 
450 : SV=HV ID- < V--V1 ) '*PV 
460 :GOSUB 500 
470 NEXT X 
480 GOTO 610 

490 REM--.-.— I USER IMENTO : SX, SV 

509 C= INT<3X/8) : L.= INT<SVX8) : LG=SV AND 7 

51 0 0 C T=A G R A+L„ *320+8$ C+L G 
520 BIT=7-<SX AND 7> 

530 POKE OCT,PEEK(OCT) OR P<BIT) 

540 RETURN 

57tì REM--- CURVA DA COMPLETARE 

580 V=X*X-4 
590 RETURN 

600 REM-RIPRISTINO 

610 GET C* : IF C*="" THEH 618 
620 POKE 53272,PEEK<53272) AND 247 
630 POKE 53265,PEEK<53265) AND 223 



HVID 
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Disegno di una retta 

Per tracciare una retta, potremmo calcolare Y = F(X) facendo variare X. 


Y = F (X) 



Y = FIX) 

, / 

/ 

/ 

/ 

a >45° 

-►x 



Ma per una retta di inclinazione superiore a 1, il tracciato sarebbe discontinuo. Bi¬ 
sognerebbe allora calcolare X = F(Y) facendo variare Y. 

Ci proponiamo di calcolare X = F(D) e Y = F(D) facendo variare D. Non avremo 
così discontinuità. 
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Disegno di rette 


100 REM DISL DISEGNO DI LINEE 
110 : 

120 REM CON CORRENTE BIT-MAP GRAFICA 
13@ : 

140 REM DISEGNO DI RETTA CON QUALSIASI INCLINAZIONE 
150 ^ 

168 FRINT CHRf<147) 

170 FOR 1=832 TO 855: READ A : F'OKE I,R:NEXT i:SVS832 
180 : 

190 DATA 169., 32.133.. 98.. 160,6., 132., 97,169 

208 DAT A 0,145,97,200,208,251,230,98,165,98,201,64,208,241,96 
210 : 

220 AGRA=8192:POKE 53272,PEEKC53272) OR 8 
230 

249 POKE 53265,PEEKC53265) OR 32 : REM COMMUTAZIONE GRAFICR 

250 : 

260 FOR 1 = 1024 TO 1024+999 :POKE 1,3 : HEXT I 
270 

280 FOR 1=0 TO 7 : PC I>=2tl : NEXT I 

290 REM- STUDIO <FUNZIONE) 

300 X1 = 10 :X2=100 : V1 = 10 :V2=100 :G03UB 360 
310 X1=X2: V1=V2:X2=X1+40 :V2=V1 :GOSUB 360 
328 GOTO 480 

330 REM-DISEGNO DI UNA RETTA 

348 REM INGRESSI: XI,X2 V1,V2 
350 : 

360 DX=X2-X1:DV=V2-V1:B=SQRCBX*DX+DV*DV) 

370 CX=DX/D : CV-DV/D :REM INCLINAZIONI 
380 ; 

390 FOR DD=0 TO D 

400 X=X 1 +DD*CX : V=V1 +DD'*CV 

410 C=INT < X/8) : L=INT C V/8) : LG=V AND 7 

420 OCT=AGRA+L*320+8*C+LG 

430 BIT=7-CX AND 7) 

440 POKE OCT,PEEKCOCT) OR PCBIT) 

450 NEXT LD 
460 RETURN 

470 REM-RIPRISTINO 

480 GET X$ : IF Xf="" THEN 480 
490 POKE 53272,F'EEKC53272) AND 247 
500 POKE 53265,PEEKC53265) AND 223 
510 REM- 

520 REM PER METTERE SU OPEN, IN CASO DI ERRORE, FARE GOTO 490 
530 REM PER VISUALIZZARE IL MESSAGGIO DI ERRORE 
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10 REM GEO INTERROGAZIONE GEOGRAFIA 
20 : 

30 : 

35 Din XV(20),YV(20),C$(20) 

40 F'RINT CHR$( 147) 

50 BASE=4096*2;F'OKE 53272,PEEK(53272) OR 8 
60 ! 

70 F'OKE 53265,PEEKC53265) OR 32 ' REn COnnUTAZIONE GRAFICA 

80 : 

90 FOR I=BASE TO BASE + 7999: F'OKE 1,0:NEXT I 
100 : 

110 FOR 1 = 1024 TO 1024+999 : F'OKE I,3:NEXT I 
120 ? 

130 FOR 1=0 TO 7;F'( I ) =2 A I :NEXT I 

140 REn- 

150 ; 

200 READ XI,Y1 
210 : 

220 READ X2,Y2 

225 IF X2=999 THEN 280 

230 GOSUB 800 

240 X1=X2:Y1=Y2 

250 GOTO 220 

260 ? 

270 REO-LETTURA CITTA' IN C$ ( ) 

280 V=0 
285 ; 

290 READ X,Y,C$!IF X=999 THEN NV=V:G0T0 1150 
300 V=V+1 

310 XV(V)=X:YV(V)=Y:C$ < V) =C$ 

320 GOTO 290 

790 REO-DISEGNO DI UNA RETTA 

792 REO inniSSIONIt X1.X2 Y1,Y2 

795 : 

800 DX=X2-X1:DY=Y2-Y1: D=SQR(DX*DX + DY*DY) 

810 cx=dx/d;cy=dy/d 

820 FOR DD=1 TOD 

830 x=x:l+dd*cx:y=yi+dd*cy 

1000 C=INT(X/8):CL=INT(Y/8):LG=Y AND 7 

1010 0CT=BASE+CL*320+8*C+LG 

1020 BIT=7-(X AND 7) 

1030 F'OKE OCT .F'EEK(OCT ) OR F'(BIT) 

1050 NEXT DD 
1060 RETURN 

1150 V=INT(RND <1)sNV) +1 
1155 X=XV(V);Y=YV(V)5 

1159 ; 

1160 C=INT(X/8):CL=INT(Y/8)!LG=Y AND 7 
1165 OCT ==BASE+CL*320+8*0+1.0 

1170 BIT=7-(X AND 7) 

1175 F'OKE OCT, F'EEK (OCT) OR F'(BIT) 

1180 : 

1185 FOR TF'=1 TO 2000: NEXT TP 
1190 GOSUB 1250 

1194 ; 

1195 F'OKE 214,21 tF'RINT 

1196 F'RINT " 

1197 F'RINT " 


(segue) 
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( seguito ) 

1198 F'OKE 214,21 : F'RINT 

1200 INPUT "QUALE CITTA' " ; C$ 

1201 FOR 1=1 TO LEN(C$> 

1202 sIF ASC(MID$(C$,I,1))=32 THEN 1204 

1203 NEXT I 

1204 C$=LEFT$(C$,I-1) 

1205 IF C$="FINE" THEN GOSUB 1260:END 
1210 IF C$=C$(U) THEN F'RINT "O.K.." 

1220 IF CtOCt(V) THEN F'RINT "NO, E' ";C*(V> 
1230 FOR TP=1 TO 2000:NEXT TP 

1235 GOSUB 1300 

1236 F'OKE OCT.O 

1240 GOTO 115Ò 

1250 REM-COMMUTAZIONE TESTO 

1260 F'OKE 53272, F'EEKt 53272) AND 247 
1270 F'OKE 53265,F'EEK<53265) AND 223 
1280 RETURN 

1290 REM- COMMUTAZIONE GRAFICA 

1300 F'OKE 53272, F'EEK < 53272 ) OR 8 
1310 F'OKE 53265,F'EEK<53265> OR 32 
1320 RETURN 

1490 REM-PIANTA DI FRANCIA 

1500 DATA 155,2 

1510 DATA 223,34, 224,38 

1520 DATA 217,49, 211,77, 205,85 

1530 DATA 204,90, 205,93, 211,88 

1540 DATA 215,93, 215,113, 216,119 

1550 DATA 224,130, 212,140, 203,145 

1560 DATA 196,139, 184,136, 172,141 


1570 

DATA 

168,148, 

166,156, 

104,141 

1530 

DATA 

112,117, 

115,94, 

109,86 

1590 

DATA 

100,74, 

98,66, 

88,59 

1600 

DATA 

77,51, 

72,50, 

72,45 

1610 

DATA 

70,39, 

75,37, 

82,38 

1620 

DATA 

89,35, 

98,38, 

105,40 

1630' 

DATA 

101,33, 

99,27, 

99,22 

1640 

DATA 

99,18, 

106,21, 

112,21 

1650 

DATA 

117,27, 

122,29, 

129,22 


1660 DATA 140,18,155,3 
1700 DATA 999,999 
1710 : 

1800 DATA 152,45,F'ARIS 
1810 DATA 162,15,LILLE 
1820 DATA 172,36,REIMS 
1830 DATA 183,70,DIJON 
1840 DATA 203,71,BELFORT 
1850 DATA 179,103,LYON 
1860 DATA 185,126,AUIGNON 
1870 DATA 196,135,MARSEILLE 
2000 DATA 999,999,ZZZ 
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Teleschermo 


Funzioni dei tasti 


H accende un punto a destra 

SHIFT/H accende un punto a sinistra 
/H spegne un punto a destra 


V accende un punto discendendo 

SHIFT/V accende un punto salendo 
/V spegne un punto discendendo 
RETURN ritorna all’inizio della riga seguente 


CLR 

HOME 


ritorna in alto a sinistra 


INST 

DEL 

F 


cancella lo schermo grafico 
ritorna in modo normale 


La messa a zero della carta grafica si effettua alla riga 160. Essa inizializza e lan¬ 
cia un sottoprogramma in linguaggio macchina. 

Per aggiungere altre funzioni a questo programma (disegno di rette, cerchi, 
ecc.): 

• scrivere in DATA i valori ASCII dei tasti utilizzati; 


• aumentare la variabile "direttiva” alla riga 130; 

• scrivere le istruzioni corrispondenti fra le righe 690 e 2000; 

• aggiungere le direzione (ON A GOTO n. riga 1, n. riga 2, ...) alla riga 270. 


100 REM **************************************** 

1.10 REM *** TELESCHERMO GRAFICO ************* 

120 REM **************************************** 

130 DIRECTIME=10 
140 DIMTB%(DIRECT IME) 

150 REM * AZZERAMENTO CARTA GRAFICA * 

160 F0R 1=832 T0 855:READA:F'OKE I ,A:NEXT:SYS832 
170 F0R 1=1 T0 DIRECTIME:READ TB%(I>:NEXT 
180 SCHERM0=8192 ; REM * INDIRIZZO GRAFICO * 

190 G0SUB 2260?REM * COMMUTAZIONE GRAFICA * 

200 F0R 1=0 T0 7 : P0IDS( I )=2 A I ! NEXT I ! REM * F'OIDS BIT * 

210 X=0!Y = 0: REM * INIZIALIZZAZI0NE PARTENZA * 

220 GET A$:IF A$=" " GOTO 220:REM * ATTENDE ISTRUZIONI 
230 REM * CONTROLLO ISTRUZIONI 

240 A=ASC(A$)! POR 1 = 1 T0 DIRECTIME:IF TBX(I)OA THEN NEXT ! GOTO 220 
250 A=I:I=DIRECTIME:NEXT:REM * TERMINA IL LOOP 
260 REM * GOTO ISTRUZIONI SEGUENTI 

270 0N A GOTO 510,530,550,570,590,610,630,650,670,690 


(segue) 
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{seguito) 


500 REM ss* SCRIVE UN PUNTO SULLA DESTRA ss* 

510 GOSUB 2010iGOSUB 2190:G0T0 220 

520 REM *ss SCRIVE UN PUNTO SULLO SINISTRA ss* 

530 GOSUB 2150!GOSUB 2190:G0T0 220 

540 REM ss* CANCELLA UN PUNTO A DESTRA ss* 

550 GOSUB 2150 ;GOSUB 2010:G0T0 220 

560 REM ss* SCRIVE UN PUNTO DISCENDENDO ss* 

570 GOSUB 2030?GOSUB 2190?G0T0 220 
580 REM ss* SCRIVE' UN PUNTO SALENDO ss* 

590 GOSUB 2070JGOSUB 2190:G0T0 220 

600 REM ss* CANCELLA UN PUNTO DISCENDENDO *** 

610 GOSUB 2150:GOSUB 2030:GOTO 220 
620 REM *** RITORNA ALLA RIGA *** 

630 X=0:G0SUB 2030:G0T0 220 

640 REM *** RITORNA IN ALTO A SINISTRA *** 

650 GOTO 210 

660 REM ss* DELETE *** 

670 RUN 

680 REM ss* FINE ss* 

690 GOSUB 2230:END 
2000 REM * CONTROLLO PUNTATORI X,N 
2010 X=X+1:IF X<319 THEN RETURN 
2020 X=0 

2030 Y=Y+1:IF Y>199 THEN Y=199 
2040 RETURN 

2050 X=X-1:IF X=0 OR X>0 THEN RETURN 
2060 X=319 

2070 Y=Y~1:IF Y=0 OR Y>0 THEN RETURN 

2080 Y=0:RETURN 

2090 REM * CALCOLA IL BYTE * 

2100 X1 = 1NT CX/8):Yl=INT(Y/8) 

2110 QCTET=SCHERMO+(X1*8)+(Y1*320)+(Y AND 7) 

2120 BIT=X AND 7:REM * POSIZIONE DEL BIT NEL BYTE * 

2130 RETURN 

2140 REM * SPEGNE UN PUNTO * 

2150 GOSUB 2100 

2160 F'OKE OCTET , F'EEK < OCTET ) AND (255-F'0IDS(7-(BIT AND 7))) 
2170 RETURN 

2180 REM * ACCENDE UN PUNTO * 

2190 GOSUB 2100 


2200 PQKE OCTET,F'EEK(OCTET) OR F'0IDS<7-(BIT AND 
2210 RETURN 

2220 REM * RITORNA NORMALE * 

2230 POKE 53272, F'EEK (53272) AND 247 
2240 POKE 53265, F'EEK <53265)AND 223 
2250 POKE 650,0:RETURN 

2260 PRINT CHR$(147): REM * CANCELLA LO SCHERMO ; 

2270 POKE 53272,PEEK(53272) OR 8:REM * PASSA IN 

2280 POKE 53265,F'EEK(53265) OR 32 

2290 POKE 650,128 

2300 REM * CODICE COLORE * 


2310 REM POKE 53280, 
2320 REM POKE 53281, 
2330 REM POKE 53282, 
2340 REM POKE 53283, 
2350 REM POKE 53284, 
2360 RETURN 
2500 REM ************ 


:REM COLORE DEL QUADRO 
:REM COLORE DELLO SFONDO 
: REM COLORE DELLO SFONDO 
: REM COLORE DELLO SFONDO 
:REM COLORE DELLO SFONDO 


2510 REM ** CODICI 'LINGUAGGIO MACCHINA' ** 
2520 REM *********************************** 


7) ) 


MODO GRAFICO * 


0 

1 

o 

3 


(segue) 
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( seguito ) 

2530 DATA 169,32,133,98,160,0,132,97,169 

2540 DATA 0,145,97,200,208,251,230,98,165,98,201,64,208,241,96 
2550 REM 

2560 REPI ** CODICI 'ASCII DEI TASTI' *** 

2570 REfl *********************************** 

2580 DATA 72,200,180,86,214,190,13,19,20,70 
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Mini-interprete di loops 


Per chiarire come funzioni un "Interprete Basic”, abbiamo scritto in DATA uno 
pseudo-programma. 


10 REM INTE-R MINI-INTERPRETE DI LOOP 

20 : 

30 REM-- PSEUIIO PROGRAMMA INTERPRETE 

40 DATA RIPETI 2 

50 DATA F'RIMT "GRANDE LOOP" 

60 DATA RIPETI 3 

70 DATA FRINT " LOOP INTERNO" 

£'0 DATA ANCORA 

90 DATA ANCORA PL 

100 DATA * 

110 REM- 

120 POR 1=1 TO 100 

130 -READ X$:IF X$="#" THEN NC=I-1-G0T0 170 
14.0 : CB$<I>=H$ 

150 NEXT I 
1 foO : 

170 PL=1 : REM OPERATORE RIGA IH CORSO 
180 : 

196 LG*=CD$<PL> 

200 C$=i_EFT $ <. LG$.. 4 > 

210 IF C$="RIPE" THEN 330 pp 

220 : 

230 IF C$="ANCO" THEN GOTO 370 
240 : 


Tabella CD$ ( ) 

1 RIPETERE 2 

2 PRINT "GRANDE LOOP” 

3 RIPETERE 3 

4 PRINT “LOOP INTERNO" 

5 ANCORA 

6 ANCORA 



COLONNA RP( ) 
N° riga 


COLONNA NB( ) 
numero dei loop 


250 PRINT PL;LGf 
270 PL=PL.+ 1 

280 IF PL>HC THEN STOP 
290 GOTO 190 

300 REM-RIPETE 

310 REM PR—> OPERATORE COLONNE RPO 3CONTENENTE N.DI LINEE DOPO RIPETI 

320 REM NEO CONTENENTE N.DI LOOP 


330 FOR P=1 TO LENILO*} 

332 : IF MID#a.Gf,P.. 1) = " " THEN 340 : REM SPAZIO 

334 NEXT P 


336 P=0 


340 PR. PR+ 1 : Rp< PR > =Pl.+ 1 : HE < PR ) =VAL < R IGHT$< LG$ , LEU<LG# ')-P') > 

350 PL.=PL+1 : GOTO 190 

370 NB(PR)=HE<PR)-1 : IF NB<PR»0 THEN PL*RP<PRV nn?n 190 
380 PR=PR-1 : PL=PL+1 : G0T0 190 


2 

PRINT 

"GRANDE 

LOOP" 

4 

F'RINT 

" LOOP 

INTERNO" 

4 

PRINT 

" LOOP 

INTERNO" 

4 

PRINT 

" LOOP 

INTERNO" 


PRINT 

"GRANDE 

LOOP" 

4 

PRINT 

" LOOP 

INTERNO" 

4 

PRINT 

" LOOP 

INTERNO" 

4 

PRINT 

" LOOP 

INTERNO" 


7 
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Disegno di figure 

La maggior parte dei linguaggi propongono delle istruzioni grafiche dove vengono 
specificate le coordinate X, Y delle rette da tracciare. Il linguaggio LOGO propone 
delle istruzioni grafiche alquanto originali. Ne abbiamo simulate due in BASIC: 

AVANZAMENTO distanza: Disegno di un segmento di lunghezza uguale a 

"distanza”. 

ROTAZIONE angolo: Cambio di direzione della linea aggiungendo "angolo”. 


DX 


100 REM BLOG DISEGNO DI FIGURE CLOGO) 

110 : 

120 FRINÌ CHR4<14?) 

130 A6RA=8192 : POKE 53272, PEEKC 53272 ) OR 8 

140 poKE 53265,PEEK<53265) OR 32 : REM COMMUTAZIONE GRAFICA 

150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 : 

350 FOR HB=0 TO BIST 
360 X=X0+BB#CX : V=V0+DB#CY 
370 C=INT <X/ 8 ):CL=INT <V /8 >:LG=V AND 7 
380 0CT=AGRfì+CL#328+8#C+LG 
390 BIT=7-CX AND 7) 

400 POKE OCT,PEEKCOCT) OR PCBIT) 

410 NEXT DB 

420 X0--X0+DIST#CX : V0=V0+DI ST*CY 
430 RETURN 

440 REM- RIPRISTINO 

450 GET X$ : IF H$="" THEN 450 
460 POKE 53272,PEEKC53272) AND 247 
470 POKE 53265,PEEKC53265) AND 223 
480 END 

490 REM- DISEGNO DI UN QUADRATO 

500 DATA AVANZARE,30 
510 DATA ROTAZIONE,90 
520 DATA AVANZARE,30 
530 DATA ROTAZIONE,90 
540 DATA AVANZARE,30 
550 DATA ROTAZIONE,90 
560 DATA AVANZARE,30 
570 DATA FINE 


FOR I=AGRA TO AGRfi+7999 : POKE I,0 : NEXT I 
FOR 1=1024 TO 1024+999 : POKE I,3 : NEXT I 
FOR 1=0 TO 7 : PC I )=2tl '• NEXT I 

X0= 100: V0= 100 : CX= 1 : CY=0 
READ cm 

IF CM$-"FINE" THEN 450 

IF CM$="ROTAZIONE" THEN READ R=ANG=flNG+R=GOSUB 270 
IF 014#= "AVANZARE" THEN READ BIST-GOSUB 350 
GOTO 210 

REM- ANGOLO 

IF ANG=>360 THEN ANG=RNG-360 
AR=ANG/360*2#3.14159 
CX=C0S C AR):CV=SIH C AR) 

IF CX3--.01 AND CXC.01 THEN CX=0 
IF CV>-.01 AND CVC.01 THEN CY=0 
RETURN 

REM- DISEGNO DI UNA RETTA 
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Mini-interprete Logo 

Interpretiamo in BASIC alcune istruzioni grafiche del linguaggio LOGO. 

Istruzioni di base 

DISTANZA 10 
AVANZAMENTO 
AVANZAMENTO 10 
ROTAZIONE 90 
DISTANZA + 3 
LEVA 
CALA 

Loops 

Le istruzioni tra RIPETI X e ANCORA sono eseguite X volte. 


RIPETI 4 
ROTAZIONE 90 
AVANZAMENTO 
ANCORA 



La distanza corrente diviene 10. 
Avanza della distanza corrente. 
Avanza di una distanza 10. 

La direzione è modificata di 90°. 
La distanza è aumentata di 3. 
Interrompe il disegno. 

Riprende il disegno. 


Questa sequenza disegna un quadrato. 

Funzioni 

Alcune "funzioni” si dichiarano in questo modo: 


DEFI TRIANGOLO 
RIPETI 3 
AVANZAMENTO 
ROTAZIONE 120 
ANCORA 
FINE 



Per disegnare un triangolo, basta poi scrivere: 

TRIANGOLO 

Al momento della lettura delle istruzioni, la "funzione” richiamata è rimpiazzata 
dalla sequenza delle istruzioni che vi sono scritte. 
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Disegno di una stella a 4 punte 


RIPETI 4 
AVANZAMENTO IO 
ROTAZIONE 160 
AVANZAMENTO IO 
ROTAZIONE -'70 
ANCORA 



Stella a 5 punte 


RIPETI 5 
AVANZAMENTO 10 
ROTAZIONE 160 
AVANZAMENTO 10 
ROTAZIONE —8B 
ANCORA 



Ottagono 


RIPETI B 
AVANZAMENTO 10 
ROTAZIONE 45 
ANCORA 


3 quadrati 



RIPETI '3 
DISTANZA 5 
CALA 

QUADRATO 


LEVA 

AVANZAMENTO 15 
ANCORA 


Spirale 


DISTANZA 5 
RIPETI 6 
AVANZAMENTO 
ROTAZIONE 90 
DIS+2 
ANCORA 
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Simulatore Logo 


10 REM LOGO SIMULATORE LOGO 
15 ^ 

20 '• 

30 DIM CD $(. 100> : V0=80 : X0=60 : CX= 1 : CV=0 : DI ST=20 

40 : 

50 

180 REM- DEFINIZIONE QUADRATO 

190 DATA DEFI QUADRATO 
200 DATA ABBASSARE 
210 DATA RIPETERE 4 
220 DATA AVANZARE 
230 DATA ROTAZIONE 90 
240 DATA ANCORA 
250 DATA FINE 

260 REM- DEFINIZIONE TRIANGOLO 

270 DATA DEFI TRIANGOLO 
280 DATA RIPETERE 3 
290 DATA ROTAZIONE 120 
300 DATA AVANZARE 
310 DATA ANCORA 
320 DATA FINE 

330 REM- 

340 DATA DISTANZA 30 
350 DATA QUADRATO 
355 : 

360 DATA ALZARE 
370 DATA AVANZARE 60 
375 DATA ABBASSARE 
380 DATA DISTANZA 20 
390 DATA TRIANGOLO 

400 REM- ROTAZIONE QUADRATO 

405 DATA ALZARE 

406 DATA AVANZARE 40 

407 DATA ABBASSARE 

408 DATA DISTANZA 20 
410 DATA RIPETERE 8 
420 DATA QUADRATO 
430 DATA ROTAZIONE 45 
440 DATA ANCORA 

450 REM-OTTAGONO 

460 DATA ALZARE 
462 DATA AVANZARE 40 
464 DATA ABBASSARE 
480 DATA RIPETERE 8 
490 DATA AVANZARE 10 
508 DATA ROTAZIONE 45 
510 DATA ANCORA 
850 DATA * 

857 : 

860 REM—-LETTURA DEI COMANDI- 

870 1=1 
880 

890 READ Xf:RRINT Xf 
900 : 

910 IF LEFT$<X$,4>=“DEFI" THEN GOSUB 1720 : GOTO 890 
920 : 


(segue) 
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( seguito ) 

930 IF :*:*="*" THEH NC=I:GOTO 1010 
940 FOR K*1 TO 5 

950 'IF H*=F$<K..0) THEH GOSUB 1940 

960 HEHTK 

961 : 

962 : 

963 : 

964 

965 : 

970 : 

980 CD*<I)=X* 

990 1=1+1 : GOTO 890 
1000 : 

1010 GOSUB 3050 

1015 F'L=1 • REM OPERATORE RIGA IN CORSO 

1020 : 

1030 LG*=CD*<PL> 

1040 C*=LEFT*<LG*j45 
1050 IF C*="RIPE" THEH GOTO 1470 
1060 IF C*="AHCO" THEH GOTO 1510 
1070 IF C*="AVAH" THEH GOSUB 1630 
1080 IF C*="ROTA" THEH GOSUB 1540 

1090 IF C*="DIST" THEH GOSUB 1390: IF VO0 THEH DIST=V 

1100 IF C*="DIS+ M THEH GOSUB 1390: IF VO0 THEH BIST=DIST+V 

1120 IF 0*="ALZA" THEH LV=1 

1130 IF C*="ABBA" THEH LV=8 

1175 PL=F'L+1 : IF PL>HC THEH 1185 
1180 GOTO 1030 
1182 • 

1185 GET X* : GOTO 3430 
1190 : 

1380 REM-RICERCA SPAZIO— 

1390 V=8 

1400 FOR P=1 TO LENCLG*) 

1410 : IF MID*<LG*,P.. 1> = " " THEH V=V AL< RI GHT$ < LG*.. LEH < LG* > -P > ) : RETURN 
1420 HEXT P 


l’+JW • Kfc I UKN 

1440 REM- RIPETERE 

1450 REM PR:OPERATORE CATASTA RPO CONTENENTE 
1455 REM HO RIGA DOPO RIPETERE 

1460 REM HE : CONTIENE NO III LOOPS 


1470 GOSUB 1390 

1430 PR=PR+1 : RP< PR > =PL+1 :HB < PR >=V 

1490 PL=F'L+1 : GOTO 1030 

1500 REM- ANCORA 

1510 MB<F'R) =NB(PR>-1 : IF HB<PR>‘>0 THEH PL=RPCPR> : GOTO 1030 
1520 PR=F'R-1 : F'L=PL+1 : GOTO 1030 

1530 REM- ROTAZIONE ANGOLO 

1540 GOSUB 1390 
1550 AHG=ANG+V 

1560 IF ANG=>360 THEH ANG=AHG-360 
1570 AR=AHG/360*6.28318 
1580 CX=COS<AR>:CV=SIH <AR > 

1590 IF DO-,01 AND CXC.01 THEH.CX=0 
1600 RETURN 

1610 REM-DISEGNA LA RETTA 

1630 GOSUB 1390 
1640 IF P=0 THEH 1660 
1650 DIST=V 

1660 DX=D I ST*CX •• DV=D I ST*CV 


(segue) 
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(, seguito) 


1670 IF LV=1 THEH 1690 
1680 : 

1685 GOSIJE 3348 
1687 : 

1690 X0=X0+BH : V0=V0+DV 

1700 RETURN 

1701 : 

1702 : 

1703 : 

1704 : 

1705 : 

1710 REM-CARICAMENTO FUNZIONI IN F$<./> 

1720 HF=NF+1 

1730 Fi <NF,0)=RIGHT*<X$,LEN<X*)-5> 

1740 FOR P=1 TO IO 
1750 : READ F$<NF. F) 

1760 : IF F*<NF,P>="FINE" THEH RETURN 
1770 NEXT P 
1780 STOP 

1930 REM-IMMISSIONE FUNZIONI 

1940 F-l 
1950 : 

I960 IF F$<K,P>="FINE" THEH RETURN 
1970 Cl!*<l;'=FT<K..P> 

1980 P=P+1:1 = I +1 : GOTO I960 

3040 ^ r 

3058 FOR 1=832 TO 855 : READ A :POKE I, A : NEXT I:SVS832 
3860 : 

3070 DATA 169.. 32.. 133,. 98,160,0,132,97,169 

3080 DATA 0,145,97,280,208,251,230,98,165,98,201,64,208,241,96 
3110 ■ 

3120 F'RINT CHRt< 147> 

3130 AGRA=8192 : POKE 53272, PEEK(53272> OR 8 
3148 : 

3150 POKE 53265,PEEK<53265) OR 32 ■REM COMMUTAZIONE GRAFICA 

3188 : 

3190 FOR 1=1824 TO 1024+999 : POKE I,3 : NEXT I 
3208 : 

3210 FOR 1=0 TO 7 : P<I>=2TI : NEXT 1 
3215 RETURN 

3280 REM-DISEGNO DI UN SEGMENTO 

3340 FOR DD=8 TO BIST 

3350 X*X0+DB#CX=V=V0+DB#CV 

3360 C=INT < X/8)•L=INT <V/8):LG=V AND 7 

3370 OCT=AGRA+L'#320+3*C+LG 

3380 EIT=7-(X AND 7> 


3398 POKE OCT, PEEK (OCT) OR F'CBm 
3400 NEXT DB 
3410 RETURN 

3428 REM- RIPRISTINO 

3430 GET X$ : IF X$=" M THEN 3430 
3440 POKE 53272,PEEK<53272) AND 247 
3450 POKE 53265,PEEK<53265) AND 223 







I valori relativi dei bytes 


• Permettono di disegnare figure di 24 X 21 punti gestiti dal Commodore 64; que¬ 
ste figure sono dislocate e visualizzate molto rapidamente. 
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• Possono essere gestiti simultaneamente 8 valori (da 0 a 7). 

• L’impostazione dei valori relativi si compie linea per linea (21 linee di 24 punti). 
Ogni linea è codificata da tre valori decimali. 

• La memoria V + 21 permette di "ATTIVARE” uno stato ponendo 1 nel bit relativo 
(stato 2 per bit 2 per esempio). 

• Le memorie V + 23 e V+29 consentono di espandere un valore. 

Esempio: 225 POKE V + 23,4: POKE V + 29,4 
raddoppia le dimensioni del bit N. 2. 

• I valori del disegno dell’esempio (farfalla) sono stati ottenuti grazie ad un "GE¬ 
NERATORE DI VALORI RELATIVI”. 
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S:SOLLEVARSI/ B:ABBASSARSI/ F:FINE 
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Farfalla 


100 REM SF'RITE 
110 : 

120 REM DISEGNA UNA FARFALLA 
130 : 

140 FRI NT CHR-K147) : REM CANCELLAZIONE SCHERMO 

159 V=53248 : REM INDIRIZZO SPRITE 

160 F'OKE V+21,4 : REM SPRITE 2 ATTIVO 

170 F'OKE 2042,13 : REM BLOCCO N. 13 

1S0 : 

190 FOR 1=0 TO 62 : REM LETTURA DATA 

200 : READ D : F'OKE 13*64+1, D 
210 NEXT I 

220 REM-SPOSTAMENTO SPRITE 

230 F'OKE 53281,1 

240 FOR X=1 TO 200 STEP 2 

258 : F'OKE V+4, X : REM X 

260 : F'OKE V+5,100 

270 NEXT X 

2S0 : 

290 C=RND < 1 ') * 10 

300 F’OKE V+41, C : REM COLORE VARIABILE 
310 GOTO 240 

320 REM- DISEGNO SPRITE 

330 DATA 0,8,0 
340 DATA 15,252,0 
350 DATA 7,248,128 
360 DATA 3,241,0 
370 DATA 15,254,0 
380 DATA 15,254,0 
390 DATA 3,241,0 
400 DATA 7,248,128 
410 DATA 15,252,0 
420 DATA 31,254,0 
430 DATA 0,0,0 
440 DATA 0,0,0 
450 DATA 0,0,0 
460 DATA 0,0,0 
470 DATA 0,0,0 
480 DATA 0,0,0 
490 DATA 0,0,0 
500 DATA 0,0,0 
510 DATA 0,0,0 
520 DATA 0,0,0 
530 DATA 0,0,0 


/ 







Gli archivi sequenziali 

su cassetta 


I files permettono di archiviare informazioni che possono essere in seguito consul¬ 
tate e modificate. 

I supporti di questi files sono in genere magnetici (nastro o disco). Si distinguono 
l’organizzazione sequenziale e quella diretta. 

Si parla di organizzazione sequenziale quando le informazioni sono archiviate "se¬ 
quenzialmente” nell’ordine in cui arrivano. 



| REGISTRAZIONI 

/ 1 \ 



Con questo tipo di organizzazione, un’informazione particolare può essere ritrova¬ 
ta solo dopo avere letto tutte le precedenti. 

I "records” sono separati da < RETURN > (CODICE 13). 

Le istruzioni di dialogo con i files (PRINT e INPUT) sono le stesse di dialogo con lo 
schermo. 
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Apertura: OPEN n. file, 1 , | ® j 

• Un file sequenziale può essere aperto in modo "scrittura” od in modo "lettura”. 

• Deve essere chiuso prima di essere aperto in un altro modo. 


10 OPEN 
10 OPEN 



Scrittura: PRINT # n. file, variabile 

Scrive la variabile specificata sulla cassetta. 


170 OPEN 2,1,1,"ESS” 

180 : 

190 INPUT "NONE (0 FINE) ";NPÌ$ 

200 INPUT "TELEFONO ";TELf 
210 : 

220 PRINT 2,Nf1$ 

230 PRINT 2,TEL$ 

240 IF NN$="FINE" THEN CL0SE2:G0T0 260 
250 GOTO 190 


Lettura: INPUT # n. file, variabile 

Trasferisce il valore presente in cassetta nella variabile specificata. 


290 ; 

300 OPEN 2,1,0,"ESS" 

310 INPUT 2,NN$,TEL$ 

320 : 

330 PRINT NM$,TEL$ 

340 IF NM="FINE" THEN CL0SE2:G0T0 370 
350 GOTO 310 


Chiusura: CLOSE n. file 

Trasferisce il contenuto della "memoria tampone” su cassetta, liberando la prima. 
ATTENZIONE: Le stringhe di caratteri non devono oltrepassare gli 80 caratteri. 
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File sequenziale su cassetta 


100 

110 

130 

158 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

255 

260 

270 

280 

290 

380 

318 

320 

330 

340 

350 

360 

370 

■Z‘ i 

380 

390 

400 

410 

428 

430 

440 


REM fìRSEC ARCHIVIO SEQUENZIALE SU CASSETTA 


FRI NT 

PRI NT "SCRITTIJRA ARCHIVIO : FRI NT 
OPEN 2,1.. 1,"ESS" 

INPUT "NOME <0 FINE) " i NOM$ 

INPUT "TELEFONO "TELi 

PRIHT#2,N0M$ 

FRINT#2,TELi 

IF NOMi="FINE" THEN CL0SE2 : GOTO 260 
GOTO 190 

INPUT "RIAVVOLGERE IL NASTRO E PREMERE RETURN": Ri 

REM- LETTURA 

PRINT "LETTURA ARCHIVIO" : FRINT 

OPEN 2,1,0,"ESS" 

INPUT#2,NOMi, TELi 

PRINT NOMi,TELi 

IF NOM$="FINE" THEN CL0SE2•GOTO 370 
GOTO 310 

REM- LETTURA CON GET# 

INPUT "RI AVVOLGERE IL NASTRO E PREMERE RETURN"?- " ; p$ 
OPEN 2,1,8,"ESS" 

IF ST=S4 THEN CL0SE2 : END 
GET #2,Ci 

PRINT Ci,ASCCC$> 

GOTO 390 
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Scrittura file 


SCRITTURA FILE 

PRESS RECORD & PLAY ON TAPE 
OK 

NOME (0 FINE) ? FERRARI 
TELEFONO ? 112233 
NOME (0 FINE) ? ROSSI 
TELEFONO ? 445566 
NOME (0 FINE) ? FINE 
TELEFONO ? *** 

RIAVVOLGETE E BATTETE <RETURN> ? 
LETTURA FILE 


PRESS PLAY ON TAPE 
OK 

FERRARI 112233 
ROSSI 445566 

FINE *** 

RIAVVOLGETE E BATTETE <RETURN> ? 
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Archivio di indirizzi 
(su file sequenziale) 

Un archivio di indirizzi è gestito da tabelle in memoria centrale. Esse vengono poi 
memorizzate al termine delle operazioni in un file sequenziale letto in memoria 
centrale all’inizio della seguente sessione: 


COGN$ 

VIA$( ) 

CITTA$( ) 

FERRARI 


Via Roma, 110 


MILANO 

ROSSI 


Via Milano, 16 


ROMA 







Numero dei nomi 


salvataggio 
su file sequenziale 


□ 

E 

FERRARI 

XXX 

ROSSI 

XXX 



Naturalmente, le dimensioni dell’archivio sono relative allo spazio disponibile in 
memoria centrale. 20 kbytes permettono di gestire fino a 200 persone, se sono pre¬ 
visti in 100 caratteri per ciascuna di esse. 

In caso di incidente (caduta di tensione, ad esempio), le modifiche non ancora tra¬ 
sferite sul file vanno perdute. 

Organizzazione del programma: esso è scomposto in sottoprogrammi scelti per 
mezzo di un MENU. 


MENU:INPUT "MODO?";M$ 

IF M$=“C" THEN GOSUB 
IF M$=" “ THEN GOSUB 
GOTO MENU FINE 
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Archivio di indirizzi 


100 REM ARCHINO ARCHIVIO INDIRIZZI 
110 : 

128 : 

138 ^ 

140 : 

150 Din HOMI(100>,VIAla00>,CITTAI<100),CAPI<100) 

160 DIM CLE*<100)., IXC100) 

170 ^ 

180 FRI NT CHR* <147 > ••■INPUT "NUOVO ARCHIVIO <S/N> ".;R*7F RI="S" THEN 21S 
190 GOSUB 770 
200 REM—- 

210 FRINT CHRI<147>:PRINT "ORZIONE : " : FRINT 
220 FRINT TAB<3>;"C : CREAZIONE/MODIFICHE" 

230 FRI NT TAE'C3>.;"LA : LISTA ARCHIVIO" 

240 FRINT TAB(3>1"FIN '•FINE SESSIOHE <OBBLIGATORIA)" 

250 PRINT :M$="" = INPUT "OFZIONE"; MI 
260 IF MI="C" THEN GOSUB 310 
270 IF MI*"FIN" THEN GOSUB 650 : END 
280 IF MI="LA" THEN, GOSUB 930 
290 GOTO 210 

300 REM=========CREAZIONE/MODIFICHE==== 

310 FRINT : NOM!="" : INPUT "NOME ONOMIOF HOMI="" THEN RETURN 
320 : 

330 L=LEH<NOMI> 

340 FOR RANGHI TO 100 

350 -lF HOMI< RANG)="" THEN 410 

360 7F NOMI=LEFT*<HOMI<RANGTHEN 478 

370 NEXT RANG 

380 STOP 

390 : 

400 REM-NUOVO NOME 

410 INPUT "NUOVO NOME OK <S/N> ":.R$ 

420 IF RIO"S" THEN 318 
430 : 

440 NOMI<RANG>=NOMI 


45@ : 

460 FRINT 


470 PR I NT V I Al < RANG :> ; TAB < 1 5 ) 

480 VIA**"": INPUT "VIA "iVIAI'IF VIAIO"" THEN VIAI<RANG)=VIAl 
490 


500 PRINT CI TTAl < RANG >; TAg < 1 5); 

518 CITTA!=""- INPUT "CITTA■' n ;CITTA* 


520 

530 

540 

550 

560 


IF 

PRINT CAPI< RANG>;TAB <15 >; 

CAPI="" : INPUT "CAP " > CAPI : IF CARIO' 
GOTO 310 


CI TT AIO " " THEN CI TT Al < RANG > 
" THEN CAPI<RANG)=CAPI 


'0 


590 

600 

618 

620 

630 


=CITTR! 


(segue) 






Gli archivi sequenziali su cassetta 129 


( seguito ) 

S40 REM==================== SALVATAGGIO SU CASSETTA==== 

650 OPEN 2,1.. 1,"IND" 

660 i 

670 FOR 1=1 TO 100 

680 :1F N0Mì< I >=" 11 THEH PRINT#2, "FINE" : CL0SE2 : RETURN 
690 :PRINT#2,NOM#<I> 

700 : PRINT#2,VIAi<I} 

710 :PRINT#2, CITTAic!I) 

720 : PRIHT#2, CAPÌ< I > 

730 NEXT I 
740 STOP 
750 : 

760 REM==================== LETTURA ARCHIVIO SU CASSETTA 

770 OPEN 2,1,0.. "INB" 

7S0 
810 : 

830 : 

840 FOR 1=1 TO 100 

850 ^INPUT#2,X$-IF XÌ="FINE" THEN 900 
860 : NOM$<I>=X$ 

870 : I NF'UT#2 , VI Ai a > , CITTAÌ< I > , CAPÌ ( I ’) 

880 PRINT NOMACI) 

890 NEXT I 
A00 CL0SE2 
910 RETURN 

920 REM========= LISTA DELL-'ARCHI VI 0=== 

930 PRINT CHRÌ< 147'. 

940 PRINT "LISTA DELL'ARCHIVIO " : PRINT 
950 : 

960 FOR F=1 TO 100 

970 : IF NOM*CF>="" THEN 1030 

980 ' PR I NT NO Mi < F >T AB <13 > ; 

990 -PRINT CITTAi(F>TAB<30>:■ 

1000 : PRINT CAPÌ 
1010 :PRINT 
1020 NEXT F 

1030 PRINT : INPUT "PREMERE <RETURN> ";RÌ 
1040 RETURN 








Appendice 1 

Ricapitolazione 
delle istruzioni BASIC 


ABS (— 5) 

Dà il valore assoluto di un numero 

PRINT ABS (— 5) -*■ 5 

AND 

Permette la verifica di più condizioni: 

Le istruzioni dopo THEN sono eseguite SE la condizione 

1 E la condizione 2 sono VERE 


90 INPUT "X?”: X 

100 IF (X>0) AND (X<10) THEN PRINT "X è superiore 
a 0 ed inferiore a 10” 

Mette a zero un bit in un byte: 

POKE 53272, PEEK (52272) AND 247 

Mette a zero il bit 3 del byte 53272 

ASC ("B”) 

ASC ("CARLO”) 

Dà il codice ASCII di un carattere o del primo carattere 
di una stringa (che non deve essere vuota) 


PRINT ASC ("B”) - 66 

PRINT ASC ("CARLO”) -» 67 

ATN (X) 

Fornisce l’arco tangente di X espresso in radianti 

CHR$ (66) 

Dà un carattere il cui codice è 66 

Cioè B 


PRINT CHR$(66) visualizza il carattere B 

PRINT CHR$(14) passa in modo minuscolo/maiuscolo 

CLOSE 9 

Chiude il file logico 9 

CMD 9 

Trasferisce le uscite sul file logico 

OPEN 9,4: CMD 9: LIST 

scrive la lista su stampante 

CONT 

Riattiva l'esecuzione di un programma interrotta dal 
tasto "RUN/STOP”, o STOP all’interno di un programma 

cos 

Fornisce il coseno di X espresso in radianti 

DATA "gennaio”, 83 

Definisce dei dati che sono letti da READ 


10 DATA "gennaio”, 83 

20 READ MESE$: READ AN 

30 PRINT MESE$: AN ->■ gennaio 83 

DEF FN X (X) = ... 

Definisce una funzione di X 


10 DEF FNA(X) = X/2 

20 PRINT FNA(12) -> 6 


(segue) 
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{seguito) 


DIM MESE$(12) 

DIM MESE(12) 

DIM VEN(12,5) 

Riserva lo spazio per una tabella MESE$( ) 

END 

Definisce la fine del programma 

EXP (X) 

Dà l’esponente di X 

FN (X) 

Richiama la funzione definita da DEF 

FOR I = 1 TO 5 

Le istruzioni fra FOR e NEXT sono eseguite 5 volte 

NEXT I 

10 FOR I = 1 TO 5 

20 PRINT 1*1 

30 NEXT I 

1 1 

2 4 


5 25 

FOR I = 3 TO 1 STEP — 1 

NEXT I 

10 FOR I = 3 TO 1 STEP — 1 

20 PRINT 1*1 

30 NEXT I 

3 9 

2 4 

1 1 

FRE (0) 

Dà lo spazio libero in memoria centrale 

PRINT FRE(0) -» 15234 

GET X$ 

Legge un carattere da tastiera (senza riemetterlo) 

GET# 9,A$ 

Riceve un carattere da una periferica aperta sul canale 9 

GOSUB 1000 

Provoca un allacciamento del programma alla riga 1000 
(come GOTO 1000) ma quando si incontra una istruzione 
RETURN l’esecuzione prosegue alla 110 


100 GOSUB 1000 1000 sotto-programma 

110 1010 

200 GOSUB 1000 1020 

210 1030 RETURN 

GOTO 1000 

Provoca un allacciamento del programma alla 1000 

Può essere utilizzato in modo diretto dopo una 
interruzione, le variabili non sono riportate a zero (come 
farebbe RUN 1000) 

IF cond. THEN istr. 

Testa una condizione ed esegue la o le istruzioni dopo 
THEN se la condizione è VERA 


10 INPUT "Età?”; ETÀ 

20 IF (ETÀ >18) THEN PRINT "Siete maggiorenni” 

INPUT “ANNO?”; AN 

INPUT "NOME?”; N$ 

INPUT "NOME, ETÀ”; N$, ETÀ 

INPUT# 9, A$ 

Emette il messaggio "ANNO?” ed attende che l'operatore 
immetta il valore di AN 

Emette il messaggio "NOME, ETÀ” ed attende che 
l’operatore immetta i valori di NOME e di ETÀ (separati 
da un virgola). Una stringa non deve contenere delle 
virgole. 

Riceve una stringa da una periferica aperta sul canale 9 

INT (valore) 

Dà la parte intera di un valore 

PRINT INT(12,6) -» 12 

LEFT$ ("BASIC”, 3) 

Dà i caratteri di sinistra di una stringa 

PRINT LEFT$ ("BASIC”, 3) - BAS 


(segue) 
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( seguito ) 


LEN ("BASIC”) 

Dà la lunghezza di una stringa di caratteri 

PRINT LEN ("BASIC”) - 5 

LIST 

LIST 10 

LIST 10—30 

LIST —30 

LIST 30 — 

Lista tutto il programma 

Lista la riga 10 

Lista le righe da 10 a 30 

Lista le righe da 0 a 30 

Lista le righe da 30 alla fine 

LOAD "INIZIO” 

Carica in memoria centrale il programma "INIZIO” 

LOG (X) 

Dà il logaritmo in base 10 

MID$ (X$, 7, 4) 

Dà i caratteri centrali di una stringa 


10 X$ = "BASIC PER TUTTI” 

20 PRINT MID$ (X$, 7, 3) -» PER 

NEW 

Cancella il programma presente in memoria centrale 

NEXT 

Fine del loop (vedere FOR) 

OPEN 9, 4 

Apre un file logico per una periferica 

Apre il canale 9 per la stampante 

ON B GOSUB 100, 200, 500 

Il programma esegue la 100, la 200 o la 500, a seconda 
del valore di B (1, 2, 3). 

Al ritorno dal sottoprogramma, il programma continua 
alla riga che segue ON B GOSUB... 


10 INPUT "Scelta? (1, 2, 3)”: SC 

20 ON SC GOSUB 100, 200, 500 

30 END 

100 PRINT "Scelta 1": RETURN 

110 : 

200 PRINT "Scelta 2”: RETURN 

210: 

500 PRINT "Scelta 3”: RETURN 

ON B GOTO 100, 200, 500 

La stessa cosa di ON B GOSUB... ma senza ritorno 

OR 

Permette il test di più condizioni. Le istruzioni dopo 
THEN sono eseguite se la cond. 1 O la cond. 2 è VERA. 


90 INPUT "X?”; X 

100 IF (X = 1) OR (X = 3) THEN PRINT "X è uguale a 1 

POKE 53272, PEEK (53272) OR8 

O j 

Mette a 1 il bit 3 del byte 53272 

PEEK (1000) 

Fornisce il contenuto del byte di memoria 1000 

10 X = PEEK (1000) 

? PEEK (214) 

Stampa il contenuto del byte di memoria 214 

POKE 214,10 

Colloca 10 nel byte di memoria 214 

POS. (X) 

Fornisce la posizione del cursore nella linea 

PRINT 

PRINT "BUONGIORNO” 

PRINT "ROSSI”; TAB (9); "A.” 

Provoca un salto di linea 

Visualizza BUONGIORNO 

Visualizza ROSSI e poi A. alla colonna 9 

PRINT# 9, A$ 

Trasmette alla periferica aperta il canale 9 

READ MESE?, ANNO 

Vedi DATA 


{segue) 
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( seguito ) 


REM blabla 

Tutto ciò che segue REM è commento 

RESTORE 

Posiziona il puntatore delle DATA all’inizio 

Permette così la rilettura 

RETURN 

Segnala la fine di un sottoprogramma. Provoca un 
ritorno del programma alla riga dopo GOSUB 

RIGHT$ (X$, 3) 

Dà i caratteri di destra di una stringa 

10 X$ = "BASIC” 

20 PRINT RIGHT$ (X$, 3) -> SIC 

RND (Y) 

Fornisce un numero a caso compreso tra 0 e Y 

RUN 

Provoca l’esecuzione di un programma 

Imposta i valori delle variabili a zero 

RUN 100 

Provoca l’esecuzione del programma dalla riga 100 

SAVE "PROG” 

Salva il programma PROG sulla cassetta 

SGN (X) 

Dà il segno di numero: 

1 positivo 

0 nullo 
— 1 negativo 

SIN (X) 

Dà il seno di X espresso in radianti 

SPC (3) 

Stampa 3 spazi: 

10 PRINT "XXX”, SPC (3); "XXX” - XXX XXX 

SQR (X) 

Dà la radice di X che deve essere positivo 

STOP 

Blocca l'esecuzione che può essere proseguita battendo 
CONT 

STR$ (123) 

Converte un numero in stringa: 

10 X = 123: X$ = STR$ (X) 

20 PRINT RIGHT$ (X$, 1) -> 3 

SYS 

Lancia un programma in linguaggio macchina 

SYS 832 

Lancia un programma in linguaggio macchina che inizia 
all'indirizzo 832 

TAB (X) 

Stampa con uno spazio di X caratteri all’inizio di riga 

TAN (X) 

Dà la tangente di X espressa in radianti 

THEN 

(Allora) Vedi IF 

TO 

Condiziona la fine di un loop (vedi FOR) 

VAL (X$) 

Dà il valore numerico di una stringa: 

10 X$: "123 LIRE” 

20 PRINT VAL (X$) 123 

WAIT 198,1 

Attende che si batta un tasto 

VERIFY 

Confronta il programma in memoria con la sua copia 
sulla cassetta - 



Appendice A 

Codici ASCII 


• Caratteri ottenuti per mezzo di PRINT CHR$ (codice) 


0 

•-•cl 


64 

|d 

96 

— 

1 

33 

1 

65 

R 

97 

* 

2 

34 

II 

66 

È 

98 

1 

3 

35 

# 

6 1 7 

c 

99 

-- 

4 

36 

$ 

68 

n 

1 0@ 


5 BIANCO 

37 

“m 

63 

E 

101 

~~ 

6 

38 

& 

70 

F 

102 

— 

7 

39 


71 

G 

103 

1 

8 

40 

i 

72 

H 

104 

1 

9 

41 

') 

73 

I 

105 


10 

42 

* 

74 

J 

106 


11 

43 

+ 

75 

K 

107 


12 

44 

.. 

76 

L 

108 

L. 

13 RETURN 

45 

- 

77 

M 

109 


14 

46 


78 

H 

110 


15 

47 

/ 

73 

0 

111 

r 

16 1 

48 

0 

80 

P 

112 

"i 

17 crsrT 

49 

1 

81 

Q 

113 

• 

18 RVS ON 

50 

■~j 

c~ 

82 

R 

114 


^ qj CLR/HOME 

51 


yy 

s 

115 

* 

20 

52 

4 

84 

T 

116 

i 

21 

53 

5 

85 

IJ 

117 


22 

54 

6 

86 

V 

118 

X 

23 

55 

{ 

87 

w 

119 

0 

24 

56 

8 

qip 

}\ 

120 

* 

25 

cr 
■J • 

3 

83 

V 

121 

1 

26 

58 


30 

A 

122 

♦ 

27 

59 

; 

31 

c 

123 

•+ 

28 Rosso 

60 

< 

32 

£ 

124 

y. 

29 CRSR -► 

61 

= 

33 

] 

125 

i 

30 VERDE 

62 

> 

34 

f 

126 

IT 

31 

63 


35 


127 

1 


(segue) 
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( seguito ) 




128 


160 


129 


161 

1 

130 


162 

■ 

131 


163 


132 


164 


133 fi 


165 

1 

134 F2 


166 

% 

135 F3 


167 

1 

136 F4 


168 


137 F5 


163 

r 

138 F6 


170 

1 

139 F7 


171 

f- 

140 F8 


172 

■ 

141 SHIFT RETURN 

173 

L 

142 MAIUSCOLO 

174 


143 


175 


144 NERO 


176 

r 

145CRSR 4 


177 

_L 

146 


1 r" 8 

T 

147 CLR/HOME 

SHIFT 

179 

H 

140 INST DEL 


180 

1 

14^ MARRONE 


181 

1 

150 ROSSO CHIARO 

182 

1 

151 GRIGIO 1 


183 


152 GRIGIO 2 


184 

— 

153 VERDE CHIARO 

185 

m 

154 BLU CHIARO 

186 

J 

155 GRIGIO 3 


187 

■ 

150 PORPORA 


188 

m 

157-*crsr 


189 

J 

158 GIALLO 


190 

■ 

159 turchese 


191 

* 

r 



Appendice 


Codici video 


• I seguenti codici video sono ottenuti per mezzo di: 

POKE 1024 + Y*40 + X, codice 
POKE 55296 + Y*40 + X, colore 

POKE 53272,21 permette di ottenere la combinazione 1 (maiuscolo/grafico) 
POKE 53272,23 permette di ottenere la combinazione 2 (maiuscolo/minuscolo) 


POKE MODOI M0D02 POKE MODOI M0D02 POKE 


0 

1 

3 

4 

5 

6 
-? 

I 

8 

9 

10 

II 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
2. d 

23 

24 

25 


29 

30 

31 


R 

B 

C 

D 

E 

F 

G 

H 

1 
J 
K 
L 
M 
N 
0 
P 
Q 
R 

C* 

•-» 

T 

IJ 

V 
W 
X 

V 

2 
[ 
£ 
1 
t 


b 

c 

d 

e 

f 

9 

h 

i 

,,i 

k 

l 

rii 

i'i 

Q 

P 

q 

r 

s 

t 

u 

V 

(il 

X 

y 


34 


39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


57 

58 

59 

60 
61 
62 

*63 


! 

# 

$ 

&. 

i 

;/ 

* 

+ 


0 

1 

2 

■j 

4 

5 

6 

7 

8 
9 


64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

Pi 


84 

85 

86 


89 

90 

91 

92 


93 

94 

95 


MODOI MODQ2 


* 


L 

r 

n 


* 

i 

x 

0 

* 

I 

♦ 

4 


R 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

0 

P 

0 

R 

T 

U 


V 


n 

'q 


(segue) 
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( seguito ) 


36 

97 

38 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 
127 


I 


r 


y 

■ 

L 

“1 

r 

j- 


H 


I 


J 

■ 

■ 

j 
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4 


Messaggi di errore 


Se il messaggio inviato dal Basic non è sufficiente a trovare l'errore, provate a vi¬ 
sualizzare in modo diretto i valori delle variabili (prima di modificare il program¬ 
ma, poiché una modifica imposterebbe le variabili a zero). 

BAD SUBSCRIPT 

Si cerca di fare riferimento ad un elemento al di fuori di una tabella. 

10 DIM fi(13) 

70 F'RINT A (15) 

Occorre dimensionare la tabella con 15 elementi. 

Lo stesso errore si ha quando la tabella non è stata dimensionata con DIM (e viene 
quindi dimensionata a 10 dal BASIC). In questo caso, PRINT A (11) provoca un 
errore. 


Modo 

immediato 


10 FOR 1=1 T0 15 
20 : F'RINT A(I) ; 
30 NEXT I 

RUN p 


La tabella A 
non è stata 
dimensionata 



000 .. 0 

BAD SUBSCRIPT 

PRINT I-z 
TI- 7 


CAN’T CONTINUE (non può continuare) 

L’esecuzione del programma non può essere proseguita: 

— Una istruzione è stata modificata. 

DIVISION BY ZERO (divisione per zero) 

Divisione per zero impossibile (aggiungere un test IF X = 0 THEN...) 
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EXTRA IGNORED 

Si cerca di introdurre un dato non previsto. 


IO INPUT "MESE,ANNO "; MESE,AN 
RUN 

MESE,ANNO ? 13,12,45 -J 
EXTRA IGNORED (45 E’ IGNORATO) 
IO INPUT "VIA " ; VI A4> 

RUN 

VIA ? IT, VIA ROMA 


INPUT attende 
solo 2 valori 


Considerato come 
2 valori 

(virgole separatoci) 


È accettato solamente 11 (non immettere la virgola). 

ILLEGAL DIRECT 

Questa istruzione non può essere utilizzata in modo diretto (p. es. INPUT). 

NEXT WITHOUT FOR (NEXT senza FOR) 

Un’istruzione NEXT incontrata senza che sia stata prima eseguita una FOR. 


100 GOTO 2u0 - 

Non si può 

110 : 

entrare 

190 FOR 1=1 TO IO - 

in un loop FOR 

200 : FRI NT I 

con GOTO 

210 NEXT I 



Occorre fare: 100 GOTO 190 
OUT OF DATA (DATA in eccesso) 


Si cerca di leggere delle DATA con READ quando sono state già lette tutte. 
OUT OF MEMORY (spazio in memoria completo) 


OVERFLOW (straripamento) 

Il valore di un numero oltrepassa la capacità prevista. 

REDIMENSIONED ARRAY (ridimensionamento di tabella errato) 

Si cerca di dimensionare una tabella già dimensionata. 

È già stato fatto riferimento ad un elemento della tabella (il che provoca il suo di¬ 
mensionamento a 10 da parte del Basic), e poi la si dimensiona esplicitamente. 
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10 A(5)=123 
20 DIM A(15) 

RUN 

REDIMENS-TQNNED ARRAY 


REDO FROM START (ricominciare dall’inizio) 

Si cerca di inserire una stringa in un’ istruzione INPUT quando si attende un valo¬ 
re numerico. 


10 INPUT "NUMERO ";X 
RUN 


INPUT attende 
un valore 
numerico 


NUMERO ? ROSSI-k 

REDO FROM STARi? 1254 yr 


RETURN WITHOUT GOSUB (ritorno senza richiamo) 

Si trova un’istruzione RETURN senza che sia stata eseguita una GOSUB in 
precedenza. 


10 GOSUB 100 
20 : 

100 F'RINT "SOTTO PROGRAMMA" 
110 RETURN 


È stato dimenticato END o STOP dopo la riga 10: il sottoprogramma viene esegui¬ 
to 2 volte. (Bisogna aggiungere: 20 STOP). 

STRING TOO LONG (stringa troppo lunga) 

Una stringa diventa superiore a 255 caratteri. 

10 X$=X$+"A" 

20 GOTO 10 


SYNTAX ERROR (errore di sintassi) 

TYPE MISMATCH 

Si cerca di attribuire un valore numerico ad una stringa. 
10 X$ = 123 (si deve fare X$ = "123” o X = 123) 

10 X = "ROSSI” (si deve fare X$ = "ROSSI”) 
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UNDEF’D STATEMENT (n, riga indefinito) 

Un’istruzione GOTO o GOSUB fa riferimento ad una riga inesistente. 
UNDEF’D FUNCTION (funzione indefinita) 

Si richiama una funzione che non è stata definita. 


Finito di stampare 
nel mese di novembre 1984 
dal Centro Grafico Linate - San Donato Milanese 



Imparate a usare il Commodore 64: 
con “Il Commodore 64 per tutti” in mano, metterevi davanti alla 
vostra tastiera e incominciate a scrivere alcune istruzioni. 

Rapidamente assimilerete le nozioni fondamentali 
della programmazione: 
le variabili, i test, i loop ... 

Grazie ai numerosi esempi illustrati e ai programmi commentati 
potrete accostarvi alla programmazione del 
Commodore 64, alla grafica, ai suoni, ai suggestivi sprite. 

Su queste basi vi sarà facile approfondire 
le vostre conoscenze e scrivere i vostri programmi 
di gestione, didattici e di giochi. 


88876 


885 


D06 


★ 
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